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 sql server 主从表例子

Delphi idhttp post json 上传 php 接收

Delphi 获取cpuid的函数

Delphi10.3 创建一条json数据

Delphi 设置系统启动文件夹自身开机自动运行

Delphi写的dll回调c#

Delphi 通得进程id获取主窗口句柄

Delphi webbrowser1提取网页中的所有链接、点击第 n 个链接

Delphi 获取局域网所有ip

Delphi - system.runerror

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

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