unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; procedure FormCreate(Sender: TObject); private { Private declarations } procedure AppMessage(var Msg: TMsg; var Handled: Boolean); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //双击事件在此获取 procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean); begin if (Msg.message = WM_LBUTTONDBLCLK) and (Msg.hwnd=PageControl1.Handle) then begin if PageControl1.PageCount > 0 then ShowMessage(PageControl1.ActivePage.Caption); end; Handled:=False; end; //关联当前工程的消息 procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := AppMessage; end; end.