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

Вниз

RegisterWindowMessage   Найти похожие ветки 

← →
OHP   (2003-08-04 00:25) [0]

Привет Мастера!
Подскажите как работать с данной функцией. Хорошо бы на простеньком примере.

---

← →
AlexRush ©   (2003-08-04 10:49) [1]


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure OnApplicationMessage(var Msg:TMsg;var Handled:boolean);
public
{ Public declarations }
end;

var
Form1: TForm1;
VAR_WM_MYMSG :DWORD;
CONST
MY_WINDOWS_MESSAGE_STRING_NAME = "MY_WINDOWS_MESSAGE_STRING_NAME"#0;

implementation

{$R *.dfm}



{ TForm1 }

procedure TForm1.OnApplicationMessage(var Msg: TMsg;
var Handled: boolean);
begin
Handled:=false;
if Msg.message=VAR_WM_MYMSG
then begin
MessageBoxA(0,"MY MESSAGE !","TEST:",0);
Handled:=true;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessageA(HWND_BROADCAST,VAR_WM_MYMSG,0,0);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=OnApplicationMessage;
end;

BEGIN
VAR_WM_MYMSG:=RegisterWindowMessage(MY_WINDOWS_MESSAGE_STRING_NAME);
END.


---

← →
OHP   (2003-08-05 00:43) [2]

Ага... все ясно

---

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

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

Наверх

Память: 0.47 MB
Время: 0.013 c