Delphi 双击隐藏Tabsheet

本文整理自网络，侵删。

 
procedure Tzgda.PageControl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
 Index: Integer;
begin
 //左键点击并且双击
 if(Button = mbLeft) and (ssDouble in Shift) then
 begin
  Index := PageControl1.IndexOfTabAt(X, Y);
   ifIndex >= 0 then
    PageControl1.Pages[Index].TabVisible:=false;
 end;
end;
 

相关阅读 >>

Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同

Delphi共享软件防破解的实用方法

Delphi 如何从文本内容中删除指定行

Delphi 不用控件用函数实现发email

Delphi 获取程序自身大小的函数

Delphi xe7中获得os平台和版本

Delphi fmx 同时使用longtap和tap

Delphi form生成时的事件次序

Delphi idtcp下载文件

Delphi xe tbitmap支持gif,成为具有jpg,gif,bmp,ico,gif五种显示功能的图片控件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 双击隐藏Tabsheet