как определить компонент на который перетащили файлы

← →
2009Man (2009-01-10 08:28) [0]

При завершениии перетаскивания файлов на
компоненты формы обрабатывается процедура

procedure WMDropFiles (var Msg: TMessage); message WM_DropFiles;

в которой возникает данное событие.

Вопрос-

как определить компонент на который перетащили файлы,
на форме их может быть несколько и они создаются динамически.

← →
{RASkov} © (2009-01-10 10:25) [1]

L: TWinControl;
P: TPoint;
begin
..........
GetCursorPos(P);
L:=FindControl(WindowFromPoint(P));

← →
2009Man (2009-01-10 12:36) [2]

Именно то что надо,
спасибо.

← →
DVM © (2009-01-10 12:57) [3]

> L: TWinControl;

А если контрол потомок TGraphicControl ?

> и они создаются динамически.

что совершенно не мешает им присваивать обработчик события

как определить компонент на который перетащили файлы Найти похожие ветки