Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.036 c
1-40339
td
2003-10-01 23:20
2003.10.13
файловые операции


3-40276
Vlad2
2003-09-22 19:06
2003.10.13
Редакция в Paradox e. Проблема быстродействия.


6-40540
Checist [root]
2003-08-16 02:51
2003.10.13
WebBrowser возращается !


14-40678
kaif
2003-09-23 14:54
2003.10.13
Firebird Manager


3-40237
Abrams
2003-09-22 14:40
2003.10.13
Трехзвенная архитектура