Форум: "Основная";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];
Вниз
Как зделать???? Найти похожие ветки
← →
Spike_msu (2002-05-01 22:35) [0]Мне нужно что бы, перетаскивая мышью файл на форму, в Edit появлялся полный путь этого файла!! Подскажите!!!
← →
Song (2002-05-01 22:45) [1]Откуда перетаскиваете?
← →
Spike_msu (2002-05-01 22:57) [2]Например:
У меня открыто окно, ну допустим C:\GAMES\FF8\, я мышью выделяю файл FF8.EXE и перетаскиваю на свою форму. ОТПУСКАЮ кнопку мыши ми в Edit появляется "C:\games\ff8\ff8.exe"!! Вроде теперь все понятно!
← →
Anatoly Podgoretsky (2002-05-01 23:05) [3]Обрабатывать сообщение WM_DROPFILES
Функция DragQueryFile позволит получить имя брошеного файла
← →
Spike_msu (2002-05-01 23:39) [4]А примерчик можно??? Зарание спасибо
← →
Almaz (2002-05-02 00:11) [5]
> Spike_msu (01.05.02 23:39)
Вот примерчик:
uses ..., ShellApi;
...
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;
end;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, True);
end;
procedure TForm1.WMDropFiles(var Message: TWMDropFiles);
var
FileName: array [0..MAX_PATH] of Char;
begin
if DragQueryFile(Message.Drop, 0, FileName, SizeOf(FileName)) > 0 then
Edit1.Text := FileName;
end;
Удачи.
← →
Spike_msu (2002-05-02 01:13) [6]Спасибо!!!!
← →
Spike_msu (2002-05-08 23:38) [7]А вот еще вопрос а как мне узнать имена всех файлов если перекидывается сразу несколько файлов!!!
Например выделили 12 файлов и перетащили на мою форму, а,например, в массиве ALLFILE лежит 12 имен файлов(или путей)!
← →
Anatoly Podgoretsky (2002-05-08 23:51) [8]procedure TMainForm.WMDROPFILES(var Message: TWMDROPFILES);
var
Files : Longint;
I : Longint;
Buffer : array[0..MAX_PATH] of Char;
begin
Files := DragQueryFile(Message.Drop,$FFFFFFFF,nil,0); // Get count of
files
for I := 0 to Files - 1 do begin
DragQueryFile(Message.Drop,I,@Buffer,SizeOf(Buffer)); // Get N file
ProcessFile(Buffer); // do something with the file
end;
DragFinish(Message.Drop); // end drag loop
end;
← →
Spike_msu (2002-05-09 02:26) [9]Спасибо!!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.028 c
