Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.21;
Скачать: CL | DM;

Вниз

новый message   Найти похожие ветки 

 
Still_Swamp ©   (2003-08-08 12:36) [0]

Подскажите, как описать свое сообщение? WM_...


 
Семен Сорокин ©   (2003-08-08 12:40) [1]

const
WM_MYMESSAGE = WM_USER + 1;

class
TForm1 = class(TForm)
ptivate
( var Msg: TMessage) const
WM_MYMESSAGE = WM_USER + 1;

class
TForm1 = class(TForm)
ptivate
procedure WMMyMessge(var Msg: TMessage); message WM_MYMESSAGE;
end;

// Отсылка
procedure TForm2.Button1Click(Sender: TObject);
begin
SendMessage(Form1.Handle, WM_MYMESSAGE, ....)
end;

// Обработка
procedure TForm1.WMMyMessge(var Msg: TMessage);
begin
if Msg. ...
end;


 
Digitman ©   (2003-08-08 12:40) [2]

const
WM_... = целочисленное_значение; // равное, например, WM_USER + смещение


 
Still_Swamp ©   (2003-08-08 12:42) [3]

ок. сенкс.



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
14-68529
Skier
2003-07-11 11:04
2003.08.21
Вношу предложение


14-68518
ferrik
2003-07-31 19:35
2003.08.21
Http


1-68395
Man
2003-08-07 17:12
2003.08.21
использовать классы,описанные в dll


14-68497
Мг. Гад
2003-08-05 23:37
2003.08.21
Усех сосчитаю


14-68555
FreeSky
2003-08-04 17:45
2003.08.21
Нужны компоненты TAPI желательно с русским описанием...