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 runasadmin 运行程序并申请管理员权限

Delphi 压缩图片(bmp、jpg、png)

Delphi superobject 序列数据集

tidtcpserver控件中文指南

Delphi idhttp下载带清理网络缓存

Delphi压缩与解压_不需要特别的控件

Delphi对access数据库安全加密方法

Delphi得到字符串中第一个汉字的位置

Delphi获取文件大小

Delphi 日期相关总结20190702完结篇

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

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