如何双击tabsheet标签关闭当前tabsheet?

[Raffaello]

[Raffaello]

请给详细一点的源代码，谢谢

[王集鹄]

procedure TForm1.PageControl1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Timer1.Enabled and Assigned(TPageControl(Sender).ActivePage) then
TPageControl(Sender).ActivePage.TabVisible := False
//TPageControl(Sender).ActivePage.Free//如果你是动态创建
else Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
TTimer(Sender).Enabled := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 200;
Timer1.Enabled := False;
end;

[cobi]

伴水的方法可行。
用timer去判断鼠标双击事件的发生，然后控制pagecontrol的显示与否

[liuziran]

没有该事件，只有Create了

[Raffaello]

我搞定了，谢谢zswang(伴水)(需要充充电)