Delphi 双击关闭pagecontrol中的一个分页

本文整理自网络，侵删。

 左键双击关闭pagecontrol中的一个分页即一个tabsheet,功能像遨游浏览器一样
procedure TfrmServerSetup.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);
if Index >= 0 then
PageControl1.Pages[Index].Free;
end;
end; 
 

相关阅读 >>

Delphi android使用idhttp.get抓取https（ssl）文件

Delphi @ 与 ^ 运算符

Delphi2007在win7系统下的日期问题

Delphi fileopendialog1 多选加载大量文件,不受中文文件名影响

Delphi中webbrowser的用法

Delphi json 转换成 tfdmemtable

Delphi webbrowser获取iframe页面内容

Delphi修改资源文件的代码

Delphi打开文件夹并定位到一个文件

Delphi 检查当前用户权限

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

转载请注明出处：木庄网络博客 » Delphi 双击关闭pagecontrol中的一个分页