| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

RegisterWindowMessage

OHP ©   (2003-08-04 00:25:00) 

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

---

OHP   (2003-08-05 00:43:00) [1]

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

---

AlexRush   (2003-08-04 10:49:00) [2]


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.


---

Наверх