| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как такое будет в MCK
Igit © (2003-01-19 09:47:00)
в vcl было так:
public
procedure user(var message:Tmessage) ; message wm_user;
{ Public declarations }
end;
а в mck ошибка во второй строке...
Igit (2003-01-22 20:07:00) [1]
Большое спасибо всем ответившим... я понял!
SPeller (2003-01-22 10:51:00) [2]
Забыл добавить: Данная процедура вешается так:
Applet.OnMessage := HandleGridMessage;
SPeller (2003-01-22 10:49:00) [3]В обработчике OnMessage есть параметр Msg, в котором есть всё что тебе надо для обработки сообщения.
function TSPLResizer.HandleGridMessage( var Msg: TMsg; var Rslt: Integer ): Boolean;
begin
Result := False;
if ( fControl <> fActiveCtl ) then begin
case Msg.message of
( Msg, Rslt)
В обработчике OnMessage есть параметр Msg, в котором есть всё что тебе надо для обработки сообщения.
function TSPLResizer.HandleGridMessage( var Msg: TMsg; var Rslt: Integer ): Boolean;
begin
Result := False;
if ( fControl <> fActiveCtl ) then begin
case Msg.message of
WM_MOUSEMOVE..WM_LBUTTONUP : Result := HandleMouseMessage( Msg, Rslt );
end;
end;
end;
Igit (2003-01-22 10:27:00) [4]
Вот если бы на API, то там я знаю как, там просто в обработчике формы ... if message = ... then... а как в kol не знаю...
Igit (2003-01-22 09:09:00) [5]
Я с мессаджами плохо разбираюсь.... но как мне тогда получить такое сообщение:
SendMessage(FindWindow(nil,"My prog"), WM_USER,j ,i);?
Kladov (2003-01-19 12:53:00) [6]
забудьте про message. Мы не от TObject наследуемся, а от object. Нет там такого. Есть OnMessage у формы, апплета и у каждого контрола. Есть еще механизмы, но для простого использования OnMessage вполне хватает.
| |
