Drag&Drop Files

← →
FOZi © (2003-04-01 03:15) [0]

Всем привет! Подскажите, пожалуйста, как с помощью KOL реализовать поддержку Drag&Drop файлов на форму и/или определённый объект на форме (например, на кнопку).

Без использования KOL я просто определял функцию в разделе защищённых функций класса главной формы, т.е.

type
TForm1 = class(TForm)
.....................
protected
( var msg : TMessage) Всем привет! Подскажите, пожалуйста, как с помощью KOL реализовать поддержку Drag&Drop файлов на форму и/или определённый объект на форме (например, на кнопку).

Без использования KOL я просто определял функцию в разделе защищённых функций класса главной формы, т.е.

type
TForm1 = class(TForm)
.....................
protected
procedure WMDropFiles(var msg : TMessage); message WM_DROPFILES;
.....................
end;

А при использовании KOL, компилятор говорит, что директива message не определена.

Как быть?

Я ещё попробовал использовать события OnMessage компоненты Applet и KOLForm (попутно ещё вопрос, в чём их отличие?), но столкнулся с другой проблемой. Функции WinAPI

// активизирует поддержку Drag&Drop
DragAcceptFiles(Handle, True);

требует хэндл

// возвращает количество брошенных файлов на форму
FilesCount:= DragQueryFile(Msg.WParam, $FFFFFFFF, nil, 0);

а эта требует WParam

как их получить в KOL?

← →
GandalfTheWhite (2003-04-01 16:40) [1]

> реализовать поддержку Drag&Drop файлов

NeedComponent.OnDropFiles

> А при использовании KOL, компилятор говорит, что директива
> message не определена.

http://kol.mastak.ru/faq.htm#13

> требует хэндл

http://kol.mastak.ru/faq.htm#19

Подытоживая: RTFM!

Thanx!

Drag&Drop Files Найти похожие ветки