Форум: "KOL";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Вниз

Как такое будет в 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]

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

---

Страницы: 1 вся ветка

Форум: "KOL";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c