как поймать message?

← →
fr! (2004-05-08 10:05) [0]

Мне необходимо поймать message отосланное другим приложением.
Если в обычном delphi-проекте это выглядит так:
-----------------------------------
// отправка сообщения
const
HA_CMD = wm_app+2504;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
Var
H: HWND;
begin
H:=FindWindow("TForm1","Form1");SendMessage(H,HA_CMD,100,2);
end;
end.
--------------------------------

//приём сообщения
const
HA_CMD = wm_app+2504;
type
TForm1 = class(TForm)
Label1: TLabel;
private
{ Private declarations }
procedure WM_Mes(Var M:TMessage); message HA_CMD;
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.DFM}

procedure TForm1.WM_Mes(Var M:TMessage);
begin
ShowMessage(IntToStr(m.WParam));
end;
end.
--------------------------------------
то KOL проект начинает "ругаться " на инструкцию
"public", стоящую после обьявления процедуры.
Помогите пожалуйста с этим разобраться.
Как в KOL -проекте осуществить приём сообщений из других
приложений?

← →
SPeller © (2004-05-08 12:09) [1]

Это есть в FAQ

как поймать message? Найти похожие ветки