Drag'n'Drop для каждого компонента

[kiber_punk]

гм.. действительно, в справочнике немного по теме описано =(

[Altera]

Как организовать drag&drop из менеджере файлов...

Как организовать Drag&Drop из менеджера файлов?

Чтобы организовать Drag&Drop, добавьте в вашу форму обработку системного сообщения WM_DROPFILES. Следующий код нужно поместить в защищенную секцию деклараций вашей формы:
...
procedure WMDropFiles(var msg : TMessage); message WM_DROPFILES;
...

Вы можете активировать процесс drag&drop как обычно, вызовом DragAcceptFiles() в событии OnCreate, and дезактивировать повторным вызовом DragAcceptFiles() по событиям OnClose или OnDestroy.

Вот этот код:

procedure TForm1.WMDropFiles(var msg : TMessage);
var
i, n : word;
size : word;
fname : string;
hdrop : word;
begin
{1. Получаем хэндл для drop.}
hdrop := msg.WParam;
{2. Определяем количество файлов для drop.}
n := DragQueryFile(hdrop, $ffff, nil, 0);
{3. В цикле читаем их имена с полными путями.}
for i := 0 to (n - 1) do begin
{4. Получаем размер файла.}
size := DragQueryFile(hdrop, i, nil, 0);
{5. Проверяем, чтбы общая длина имени не превышала 255 символов}
if size < 255 then begin
fname[0] := Chr(size);
{6. Берем очередной файл.}
DragQueryFile(hdrop, i, @fname[1], size + 1);
{-- Повторяем для всех файлов. --}
end;
end;
{7. Возвращаем признак завершения - ноль.}
msg.Result := 0;
{8. Выполняем "родной" обработчик.}
inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, true);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DragAcceptFiles(Handle, false);
end;

Не забывайте, что не всякий TWinControl способен принять "брошенный" на него файл.

mihali4, ауууууууууууу!!!!

[mihali4]

Вот пример для мемо (кидаем на него файлы .txt):

procedure TForm1.WMDropFiles(var Msg: TMessage);
var Filename: array[0 .. 256] of Char;
    Count   : integer;
begin
DragQueryFile(THandle(Msg.WParam), 0,{ это номер файла } Filename,SizeOf(Filename));
Memo1.Lines.LoadfromFile(FileName);
msg.Result := 0;
inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, False);
end;

Дальше - подключайте "серое вещество" и... вперед!
(Для "особо одаренных" имя перетаскиваемого файла выделил жирным.
А хамства не терплю.
Дальше - сами.)

[Deight]

Михалыч, тебя спрашивают как обработать drag&drop если в create прописать dragacceptfiles(memo1.Handle,true); memo будет принимать файлы,но как узнать их имена.

[Zeraim]

Можно из тогоже фаил неима выдрать, читаем строчку FileName с конца к началу, чтобы найти последний '/' Далее от этого слеша присваиваем некоторой переменной все до '.' - это и будет нашим именем файла.

Если я все правильно понял =\\

[Altera]

Сообщение от Zeraim

Можно из тогоже фаил неима выдрать, читаем строчку FileName с конца к началу, чтобы найти последний '/' Далее от этого слеша присваиваем некоторой переменной все до '.' - это и будет нашим именем файла.

Если я все правильно понял =\\

Сообщение от Deight

Михалыч, тебя спрашивают как обработать drag&drop если в create прописать dragacceptfiles(memo1.Handle,true); memo будет принимать файлы,но как узнать их имена.

есть вункция такая в sysUtils, называется extractFileName
Ещё есть extractFilePath, ..Dir, ..Ext, ..Drive;

[Deight]

Altera при чем тут моя цитата? Я имею ввиду полные имена. Тема как называется? Как у формы обработать drag&drop это понятно а как у компонента?