Главная страница
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.029 c
14-40631
Johnmen
2003-09-24 14:26
2003.10.13
А любят ли программеры рыбу ?


14-40604
Прохожий
2003-09-24 12:59
2003.10.13
Проблема с деструктором потока


14-40662
Журнал "Здоровье"
2003-09-23 22:45
2003.10.13
Нам пишут


3-40253
uuu
2003-09-24 12:17
2003.10.13
Найти разницу в днях между двумя датами.


1-40415
Bezpal
2003-10-03 08:56
2003.10.13
Люди не знаете, есть ли где нить русский help для Delphi?