Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Drag&Drop Files

FOZi © (2003-04-01 03:15:00)
Всем привет! Подскажите, пожалуйста, как с помощью 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?

FOZi (2003-04-03 00:52:00) [1]

Thanx!

GandalfTheWhite (2003-04-01 16:40:00) [2]

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

NeedComponent.OnDropFiles

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

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

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

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

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

Наверх

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