новый 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 + смещение

ок. сенкс.

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