Как сделать форму, чтобы на нее можно было перетащить файл?

← →
Michael5 (2005-11-04 20:07) [0]

То есть я стягиваю с рабочего стола, к примеру, на нее файл драг-анд-дропом, и она распознает его (видит путь к этому файлу).

Подскажите пожалуйста! Это мне нужно вместа диалога выбора файла. Чтобы просто кинуть его на форму, и файл, с которым нужно работать, таким образом указан.

← →
kami © (2005-11-04 20:14) [1]

Скачать Drag & Drop Component Suite с http://www.torry.net
Или воспользоваться WM_DropFiles (не пользовался ни разу, Мастера подскажут, если нужно)

← →
Michael5 (2005-11-04 20:54) [2]

Kami, Спасибо!

Кому интересно, но лень искать в инете:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } protected procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles(Handle,True); end; procedure TForm1.WMDropFiles(var Msg: TMessage); Var FileName: array[0..256] of char; begin DragQueryFile(THandle(Msg.WParam),0,FileName,SizeOf(Filename)); Memo1.lines.loadfromfile(FileName); DragFinish(THandle(Msg.WParam)); end; end.

Как сделать форму, чтобы на нее можно было перетащить файл? Найти похожие ветки