Текущий архив: 2003.10.13;
Скачать: CL | DM;

Вниз

Как послать своё сообщение , а потом отловить его ?   Найти похожие ветки 

← →
GreySerg   (2003-10-02 18:41) [0]

Как послать своё сообщение откуда-нибудь , а потом отловить его своей компонентой ?
Если можно ссылки на доки, примеры.

---

← →
Rem ©   (2003-10-02 19:00) [1]

const
MM_YOURMESSAGE1 = WM_USER + $0001;
MM_YOURMESSAGE2 = WM_USER + $0005;

type
TYourClass = class
private
procedure MMYourMessage1(var Msg: TMessage); message MM_YOURMESAGE1;
procedure MMYourMessage2(var Msg: TMessage); message MM_YOURMESAGE2;
end;

...

procedure SendMsgDirect1;
var
Msg: TMessage;
begin
Msg.Msg := MM_YOURMESSAGE1;
YourClassObj.Perform(Msg);
end;

procedure SendMsgDirect2;
var
Msg: TMessage;
begin
Msg.Msg := MM_YOURMESSAGE2;
YourClassObj.Perform(Msg);
end;

А если компонент имеет Handle, то PostMessage() или SendMessage().

---

← →
Юрий Федоров ©   (2003-10-02 21:02) [2]

TYourClass = class( TControl)

---

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

Текущий архив: 2003.10.13;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c