Текущий архив: 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.021 c