Drag and Drop файла

← →
Аноним (2006-01-19 10:12) [0]

Подскажите плиз, как осуществить сабж. Т.е. надо например из провадника перетащить файл на форму, с целью отображения в каком либо поле пути к этому файлу.
Всем спасибо!

← →
han_malign © (2006-01-19 11:27) [1]

DragAcceptFiles, DragFinish, DragQueryFile, DragQueryPoint
WM_DROPFILES

← →
Аноним (2006-01-19 13:18) [2]

Пардон, за назойливость, а прмерчека нету?

← →
Igor_thief (2006-01-19 13:54) [3]

...
protected procedure WMDropFiles(var Msg:TMessage);message wm_DropFiles;
...
procedure TfrmMain.WMDropFiles(var Msg: TMessage); var cn:cardinal; FileName:array[0..256]of char; begin DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(FileName)); FName:=StrPas(FileName); ...... DragFinish(THandle(Msg.WParam)); end;

Drag and Drop файла Найти похожие ветки