Скачать: CL | DM;

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

← →
tolea ©   (2002-12-11 17:15) [0]

Увожаемые мастера. Подскажите пожалуйста как решить следуюшию задачу.
Как зделать чтобы когда перетаскивая любой фаил из Explorera на прогу, она перехватывала путь где он находится?

Заранее блогодарен.

---

← →
MBo ©   (2002-12-11 17:19) [1]

В статьи загляни. Да и в FAQ должно быть.

---

← →
Игорь Шевченко ©   (2002-12-11 17:20) [2]

procedure TfMain.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, true);
end;

procedure TfMain.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, false);
end;

procedure TfMain.WMDropFiles(var Msg: TWMDropFiles);
var
Pt: TPoint;
I, Count: Integer;
buf: array[0..MAX_PATH] of char;
begin
try
Msg.Result := 0;
DragQueryPoint(Msg.Drop, Pt);
Count := DragQueryFile(Msg.Drop, Cardinal(-1), buf, SizeOf(buf));
for I := 0 to Pred(Count) do begin
DragQueryFile(Msg.Drop, I, buf, SizeOf(buf));
AddFiles(StrPas(Buf));
end;
finally
DragFinish(Msg.Drop)
end
end;

Вроде, вместе с путем :-)

---

← →
Tolea ©   (2002-12-11 17:33) [3]

Большое спосибо всем

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c