Форум: "WinAPI";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c