Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > про WM_DROPFILES

Автор: Ak47black 21.4.2007, 13:19

Вообшем сам принцип работы мне понятен.
Меня интересует один вопрос, попробую объяснить:

У меня на форме несколько контролов.
Один из них TListView
При создании формы я регестрирую его.
Код
DragAcceptFiles(TListView.Handle, True);

Вопрос: как отловить сообшение когда файлы кидаються на него не изменяя сам компонент(TListView)? И без всяких лишних компонентов?

Автор: Ak47black 21.4.2007, 14:34

Придумал ,если кто знает как получше это сделать то пишите

Код


FOldFilesViewProc: TWndMethod;

procedure CheckForDrop(var Message: TMessage);
begin
  if message.Msg = WM_DROPFILES then ShowMessage('Drop');
  FOldFilesViewProc(Message);
end;

Procedure OnCreate;
  DragAcceptFiles(FileView.Handle, True);
  FOldFilesViewProc:= FileView.WindowProc;
  FileView.WindowProc:= CheckForDrop;

Добавлено @ 14:45
Еше один вопрос на эту тему как сделать следуший код

Код


(Message as TWMDROPFILES).Drop

У меня ошибка. smile

Как правильно сделать?

Автор: aktuba 21.4.2007, 16:36

Цитата

Код


(Message as TWMDROPFILES).Drop

Это как-так??? Это ты пытаешься что сделать??? Ничего не понимаю smile

Автор: Ak47black 21.4.2007, 16:39

aktuba, Сделал уже

Код


Message.WParam = Drop