Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
ВнизА как реализовать drag&drop из, например, проводника в свою прогу? Найти похожие ветки
← →
VID (2002-03-23 02:37) [1]private
...
procedure WMDROPFILES(var Message: TWMDROPFILES); message WM_DROPFILES;
...
Var DropedFile:String;
procedure TForm1.WMDROPFILES(var Message: TWMDROPFILES);
var
NumFiles : longint;
i : longint;
buffer : array[0..255] of char;
begin
{How many files are being dropped}
NumFiles := DragQueryFile (Message.Drop,0,nil,0);
{Accept the dropped files}
for i := 0 to (NumFiles - 1) do
begin
DragQueryFile(Message.Drop,i,@buffer,sizeof(buffer));
//Вот оно, полное имя брошенного файла под номером I
dropedfile:=buffer;
end;
END;
Однако, гораздо культурнее использовать спец компоненты, например компонент GLDropFiles, входящий в пакет G.L.A.D.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c