Drag'n'Drop для каждого компонента

[kiber_punk]

С этим методом у меня вообще как-то всё тяжко. Есть примеры, но только для формы.
В общем есть несколько edit'ов и для каждого надо организовать приём файла (и соответственно запись в него имени перенесённого файла)

Подскажите пожалуйста решение.

[Altera]

Ну, в процедуре разрешения драгинга файлов можно разместить хендл любого компонента.
Остаётся выяснить, как сообщение получать...

[Alter]

При перемещении получить точки(X,Y), того места где отпущена мышь. Затем узнать что за контрол под ним(WinAPI), если Edit нужный, закидываем в него, иначе ничего недобавляем. Вроде просто объяснил.

[Altera]

Не, ну делаю же, когда значок перетаскивания появляться только над конкретным компонентом?

[mihali4]

uses ShellAPI;
WM_DROPFILES
DragAcceptFiles
(Лень скачать мой справочник? Ради бога, мучайтесь...)

[Altera]

Сделал так

procedure TEXE_FORM2.FormCreate(Sender: TObject);
begin
   DragAcceptFiles(panel1.handle, true);
end;

procedure TEXE_FORM2.Timer1Timer(Sender: TObject);
var
m: tMsg;
FileName: array[0..256] of char;
begin
   getMessage(m, panel1.Handle, WM_dropfiles, WM_dropfiles);

   DragQueryFile(THandle(m.WParam), 0, FileName, SizeOf(Filename));
   DragFinish(THandle(m.WParam));
   caption := FileName;
end;

но прога висит до тех пор, пока не перетащишь что-нить на панель...

[kiber_punk]

mihali4 спасибо!
Скачал ваш справочник, изучаю (:

[Altera]

mihali4, а помой-му у вас там нет именно того, что спрашивает kiber_punk. Есть только общий для формы. А конкретно для каждого компонента в отдельности нет. Надо как-то перехватывать сообщение WM_dropfiles у компонентов.

[mihali4]

Сообщение от Altera

mihali4, а помой-му у вас там нет именно того, что спрашивает kiber_punk. Есть только общий для формы. А конкретно для каждого компонента в отдельности нет. Надо как-то перехватывать сообщение WM_dropfiles у компонентов.

А форма - не компонент? У нас большинство визуальных компонентов - окна.

[Altera]

А что? Таким методом, как там с tListBox-ами?
Кинули-бы может уже нормальный исходник в тему?