Главная страница
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
1-40423
GH@ST
2003-09-30 16:46
2003.10.13
Растягивающийся Edit


14-40613
DenK_vrtz
2003-09-24 10:52
2003.10.13
Какое пиво пьют программисты?


4-40729
Sirakuz
2003-08-08 13:08
2003.10.13
очистить edit


7-40707
JS
2003-07-28 12:27
2003.10.13
Изменение файловой системы


1-40477
Максим
2003-10-02 13:44
2003.10.13
Заставка к прогармме