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 monthcalendar1 获取选中日期

Delphi ioutils 单元(5): tdirectory.tdirectory 的其他功能

Delphi里如何限制form的大小

Delphi dbnavigator控件的按钮显示成中文

Delphi crc32算法

cef4Delphi 语言区域设置

Delphi 复制拷贝文件目录函数

Delphi 清空某个form的控件内容,用tag来判断

Delphi 将鼠标锁定在一定范围

Delphi 进制转换之10进制与34进制互转

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

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