Текущий архив: 2006.02.19;
Скачать: CL | DM;

Вниз

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;

---

Страницы: 1 вся ветка

Текущий архив: 2006.02.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.033 c