Форум: "Основная";
Текущий архив: 2003.06.30;
Скачать: [xml.tar.bz2];
ВнизОткрытие файла перетаскиванием Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c