Главная страница
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.024 c
14-1100873270
by
2004-11-19 17:07
2004.12.12
Есть ли в Delphi 7 Professional компонент TClientDataSet?


1-1101681650
che
2004-11-29 01:40
2004.12.12
PaintBox..


1-1101640633
serko
2004-11-28 14:17
2004.12.12
DateTimePicker


14-1100855778
WondeRu
2004-11-19 12:16
2004.12.12
Откуп от армии VS. Аспирантура


14-1100840649
Danilka
2004-11-19 08:04
2004.12.12
Вот, знакомый прислал