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

Открытие файла перетаскиванием   Найти похожие ветки 

← →
DiXi123 ©   (2003-06-18 11:56) [0]

Как открыть файл перетаскиванием(как в блокноте)?

---

← →
clickmaker ©   (2003-06-18 12:49) [1]

type
TForm1 = class(TForm)
Memo1: TMemo;
private
{ Private declarations }
procedure WMDropFiles(var Message: TMessage); message WM_DROPFILES;
protected
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public declarations }
end;

implementation

{$R *.DFM}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := WS_EX_ACCEPTFILES;
end;

procedure TForm1.WMDropFiles(var Message: TMessage);
var
FileCount, i: integer;
FileName: array[0..MAX_PATH] of char;
begin
FileCount := DragQueryFile(Message.WParam, $FFFFFFFF, nil, 0);
for i := 0 to FileCount-1 do begin
DragQueryFile(Message.WParam, i, FileName, sizeof(FileName));
Memo1.Lines.LoadFromFile(FileName);
end;
end;

---

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

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



Память: 0.44 MB
Время: 0.019 c