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

  • Автор темы Ramiros
  • Дата начала
R

Ramiros

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

vital

Больной Компом Детектед
29.01.2006
2 432
33
#2
Выдрал из какой-то своей программы. Такое легче вам в гуле найти.. Явно даже не пытались.
Код:
 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;
 
09.11.2009
665
1
#3
это называется drug and drop. В гугле таких статей мягко сказано дафига.