【文件属性】:
文件名称:Delphi捕获与截获消息.rar
文件大小:9KB
文件格式:RAR
更新时间:2022-07-30 11:48:24
Delphi源码-界面编程
Delphi捕获与截获消息,
private
{ Private declarations }
//在应用程序层处处理消息
procedure OnAppmessage(var msg:TMsg;var handled:boolean);
//重载WndProc方法,在窗口过程处处理消息
procedure WndProc(var msg:TMessage);override;
//自定义的消息处理过程
procedure MyMessage(var msg:TMessage);message WM_MYMSG;
//重载缺省的消息处理过程
procedure DefaultHandler(var msg);override;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{消息发送方法的数组,SendPostString[0]是 Send消息,
SendPostString[1]是Post消息,在程序中是以判断消息结构的
wParam字段来得到索引值的。SendMessage 时将wParam置为0,
PostMessage 时将wParam置为1。}
const
SendPostStrings:array[0..1] of string=('Sent','Posted');
procedure TForm1.FormCreate(Sender: TObject);
begin
//用OnAppmesage过程设置应用程序的Onmessage事件过程
application.OnMessage :=OnAppmessage;
//使用Checkbox.tag属性来存储与之相关的Radiobutton按钮的引用
CBox1.Tag:=longint(FRB1);
【文件预览】:
srcfans.com
----Delphi捕获与截获消息()
--------Unit1.ddp(51B)
--------messagesample.dpr(193B)
--------Unit1.dcu(8KB)
--------Unit1.dfm(3KB)
--------messagesample.dof(2KB)
--------messagesample.res(876B)
--------messagesample.cfg(446B)
--------messagesample.~dpr(192B)
--------Unit1.pas(6KB)