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程序的内存泄漏

Delphi xe firemonkey的stylebook皮肤控件的使用

Delphi图像匹配算法

Delphi string转为olevariant

Delphi 获取cpu monitor使用率

Delphi xe10 手机程序事件服务操作、退出键操作

Delphi如何给tedit控件加上背景图片

Delphi字符串隐藏

Delphi synedit的安装和基本使用

Delphi unigui unicheckbox勾选

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

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