Как такое будет в MCK

← →
Igit (2003-01-19 09:47) [0]

в vcl было так:
public procedure user(var message:Tmessage) ; message wm_user; { Public declarations } end;
а в mck ошибка во второй строке...

← →
Kladov (2003-01-19 12:53) [1]

забудьте про message. Мы не от TObject наследуемся, а от object. Нет там такого. Есть OnMessage у формы, апплета и у каждого контрола. Есть еще механизмы, но для простого использования OnMessage вполне хватает.

← →
Igit (2003-01-22 09:09) [2]

Я с мессаджами плохо разбираюсь.... но как мне тогда получить такое сообщение:
SendMessage(FindWindow(nil,"My prog"), WM_USER,j ,i);?

← →
Igit (2003-01-22 10:27) [3]

Вот если бы на API, то там я знаю как, там просто в обработчике формы ... if message = ... then... а как в kol не знаю...

← →
SPeller (2003-01-22 10:49) [4]

В обработчике 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;

← →
SPeller (2003-01-22 10:51) [5]

Забыл добавить: Данная процедура вешается так:
Applet.OnMessage := HandleGridMessage;

← →
Igit (2003-01-22 20:07) [6]

Большое спасибо всем ответившим... я понял!

Как такое будет в MCK Найти похожие ветки