通过消息拦截达到在Delphi控件中屏蔽原有事件处理的一种方法

最新推荐文章于 2025-04-07 13:41:13 发布

原创最新推荐文章于 2025-04-07 13:41:13 发布 · 5.1k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #forms #button #windows #class

软件技术专栏收录该内容

40 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的窗体实例，展示了如何通过重写消息处理过程来拦截PageControl和Button控件的事件，包括Tab标签切换及按钮点击事件。

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) btn1: TButton; btn2: TButton; PageControl1: TPageControl; ts1: TTabSheet; ts2: TTabSheet; procedure FormCreate(Sender: TObject); procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure AppMsg(var Msg: TMsg; var Handled: Boolean); end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.AppMsg(var Msg: TMsg; var Handled: Boolean); var i:integer; begin case Msg.message of WM_LBUTTONDOWN, WM_LBUTTONDBLCLK: begin //拦截PageControl控件的Tab标签切换事件 if Msg.hwnd=PageControl1.Handle then begin for i:=0 to PageControl1.PageCount-1 do begin if PtInRect(PageControl1.TabRect(i),PageControl1.ScreenToClient(Msg.pt)) then begin Handled:=true; ShowMessage(IntToStr(i)); end; end; end; //拦截Button按钮点击事件 if Msg.hwnd=btn1.Handle then begin Handled:=true; ShowMessage('bbbb'); end; end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage:=AppMsg; end; procedure TForm1.btn1Click(Sender: TObject); begin ShowMessage('aaaa'); end; end.