Текущий архив: 2005.11.20;
Скачать: CL | DM;
Вниз
Как сделать форму, чтобы на нее можно было перетащить файл? Найти похожие ветки
← →
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.
Страницы: 1 вся ветка
Текущий архив: 2005.11.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.044 c
