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

Raffaello 2002-01-17 08:48:13

...全文

187 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

Raffaello 2002-01-17

打赏
举报

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

liuziran 2002-01-17

打赏
举报

没有该事件，只有Create了

cobi 2002-01-17

打赏
举报

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

王集鹄 2002-01-17

打赏
举报

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;

Raffaello 2002-01-17