| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как зделать????

Spike_msu ©   (2002-05-01 22:35:00) 

Мне нужно что бы, перетаскивая мышью файл на форму, в Edit появлялся полный путь этого файла!! Подскажите!!!

---

Spike_msu   (2002-05-09 02:26:00) [1]

Спасибо!!!!

---

Anatoly Podgoretsky   (2002-05-08 23:51:00) [2]

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-08 23:38:00) [3]

А вот еще вопрос а как мне узнать имена всех файлов если перекидывается сразу несколько файлов!!!
Например выделили 12 файлов и перетащили на мою форму, а,например, в массиве ALLFILE лежит 12 имен файлов(или путей)!

---

Spike_msu   (2002-05-02 01:13:00) [4]

Спасибо!!!!

---

Almaz   (2002-05-02 00:11:00) [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-01 23:39:00) [6]

А примерчик можно??? Зарание спасибо

---

Anatoly Podgoretsky   (2002-05-01 23:05:00) [7]

Обрабатывать сообщение WM_DROPFILES
Функция DragQueryFile позволит получить имя брошеного файла

---

Spike_msu   (2002-05-01 22:57:00) [8]

Например:
У меня открыто окно, ну допустим C:\GAMES\FF8\, я мышью выделяю файл FF8.EXE и перетаскиваю на свою форму. ОТПУСКАЮ кнопку мыши ми в Edit появляется "C:\games\ff8\ff8.exe"!! Вроде теперь все понятно!

---

Song   (2002-05-01 22:45:00) [9]

Откуда перетаскиваете?

---

Наверх