如何让Pagecontrol的页面标签接受双击事件呢？来帮帮我！

[senfore]

谁知道如何让Pagecontrol的页面标签接受双击事件呢？我希望再pagecontrol的某个页面标签上实现双击关闭这个页面的功能，但没有发现tabsheet有可以接受双击事件的地方，希望知道的强人们可以指点迷津。谢谢！

[linzhengqun]

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 }
public
{ Public declarations }
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMessage;
end;

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
Pagecontrol1.Pages[pagecontrol1.ActivePageIndex].Free;
end;
Handled:=False;
end;

end.

[lm79_09]

Msg.message = WM_LBUTTONDBLCLK

这里是双击，请问单击怎么写的？是WM_????

[cchip]

MARK