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

Вниз

как поймать 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



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

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

Наверх




Память: 0.46 MB
Время: 0.037 c
4-1098882908
Yong
2004-10-27 17:15
2004.12.12
Как отловить MouseMove на форме


1-1101599957
Bobby Digital
2004-11-28 02:59
2004.12.12
Install


9-1091707720
SwitchBlade
2004-08-05 16:08
2004.12.12
Есть ли DelphiX для Delphi 8?


1-1101646116
Tazik
2004-11-28 15:48
2004.12.12
Динамические массивы.


14-1100817875
Кто---то
2004-11-19 01:44
2004.12.12
Как пишут программы управляющие физическими устройствами ?