DragDrop. Как обратится к отдельному компоненту

[gromdel]

Здравствуйте, при создании формы цикл пробегает по базе. к каждой записи он создает image на форме. Свойство top и left считывает с базы и присваивает.
Вопрос, как мне обратится к любому из этих image, т.е. я его передвину, и чтобы его новые свойства left и top дописались в базу.


Я понимаю решение проблемы такое: при создании image каждому давать имя какого-то поля, например по id. Это не сложно. А вот, куда прописать событие "если передвинул, то adoquryleft.asinteger:=image.left"
Помогите пожалуйста понять. Хотя бы логически.

[evg_m]

1.

т.е. я его передвину,

Стало быть у тебя есть(будет) код, выполняющий данное передвижение. Вот там и пиши операции обновления БД.

2. Выбирай

компонент передвигается не сам по себе, а ПО КАКОМУ_ТО ОДНОМУ вполне определенному компоненту-контейнеру(Form, Frame, Panel, Groupbox, ...)
Если он перемещается между РАЗНЫМИ контейнерами, то это уже ПЕРЕТАСКИВАННИЕ (хотя это тоже DragDrop)
И реакция на DrapDrop выполняется в объекте-контейнере.

TEndDragEvent = procedure(Sender, Target: TObject; X, Y: Integer) of object;
The Sender is the object being dragged, Target is the object Sender is dragged to, and X and Y are screen coordinates in pixels.

[Аватар]

Id записи можно в Image.Tag засунуть. Если оно совместимо с integer конечно. А любое изменение позиции можно еще так отлавливать

type
  TImage = class(ExtCtrls.TImage)
    procedure WMWindowPosChanged(var Message: TWMWindowPosChanged); message WM_WINDOWPOSCHANGED;
  end;
  TForm1 = class(TForm)
...

implementation

{$R *.dfm}

procedure TImage.WMWindowPosChanged(var Message: TWMWindowPosChanged);
begin
  Inherited;
  if ComponentState * [csReading, csLoading] = [] then begin
    ShowMessage(Format('Tag=%d,Left=%d,Top=%d',[Tag,Left,Top]));
  end;
end;

...

end.

Вместо ShowMessage свои действия