перетаскивание на форму

[Ramiros]

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

 

[vital]

Выдрал из какой-то своей программы. Такое легче вам в гуле найти.. Явно даже не пытались.

 private
procedure FileIsDropped(var Msg: TMessage); message WM_DropFiles;

procedure TForm1.FileIsDropped(var Msg: TMessage);
var
fName: array[0..256] of char;
NumberOfFiles: integer;
fCounter: integer;
begin
NumberOfFiles := DragQueryFile(Msg.WParam, $FFFFFFFF, fName, 255);
for fCounter := 0 to NumberOfFiles - 1 do
begin
DragQueryFile(Msg.WParam, fCounter, fName, 255);
//в Fname ваш файл. Тут что-то с ним делаете.
DragFinish(Msg.WParam);
end;

 

[Dock1100]

это называется drug and drop. В гугле таких статей мягко сказано дафига.

 

[Ramiros]

Спасибо за помощь, все получилось