ОБСУЖДЕНИЕ

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

3 ответов 5,5 тыс.
AI-выжимка обсуждения скоро

Краткие тезисы обсуждения со ссылками на ключевые ответы появятся здесь.

Автор темы
Видел во многих программах открытие файлов сделано не только через стандартный диалог, но и с помощью перетаскивания значка из эксплоера на форму окна, так вот объясните пожалуйста принцип такого взаимодействия и как такое делается, охота такую фишку в своем эмуле сделать :rolleyes:
 
Выдрал из какой-то своей программы. Такое легче вам в гуле найти.. Явно даже не пытались.
Код:
 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;
 
это называется drug and drop. В гугле таких статей мягко сказано дафига.
 
Спасибо за помощь, все получилось :rolleyes: