Лидеры

Сами задаем вопрос и сами отвечаем! событие OnMouseDown() { isdown = true; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } OnMouseMove() { if(!isdown) return; Object->Position->X = Object->Position->X + Screen->MousePos().X - oldx; Object->Position->Y = Object->Position->Y + Screen->MousePos().Y - oldy; oldx = Screen->MousePos().X; oldy = Screen->MousePos().Y; } OnMouseUp() { isdown = false; }

Приступил к разработке клиента с использованием FireMonkey для форума. В будущем код будет открытым и каждый сможет посмотреть, как реализованы те или иные вещи. А пока пара скриншотов:

У LiveBindings-привязок (или как они там правильно называются...) есть набор своих событий. Например, у LinkFillControlToField есть событие OnFilledListItem в обработчике которого можно дообработать данные из БД, которые не удалось привязать. Будет выглядеть примерно так: procedure TForm1.LinkFillControlToField1FilledListItem(Sender: TObject; const AEditor: IBindListEditorItem); var Item: TListViewItem; begin if AEditor.CurrentIndex >= 0 then begin Item := ListView1.Items[AEditor.CurrentIndex]; Item.Tag := BindSourceDB1.DataSet.FindField('ID').AsInteger; ... end; end;