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 firedac 下的 sqlite [11] - 关于批量提交 sql 命令的测试

Delphi 创建大窗口

Delphi utf8处理单元

Delphi10及以上版本安装activex控件

Delphi 高速替换大文本字符串内容

Delphi jpeg图片压缩

Delphi写的简单的文件的打开和关闭

Delphi整理八（对话框）

Delphi 调用cmd命令行并取得返回结果

Delphi 多次改变 richedit.text部份文本的颜色后，出现所有字体都变色的的解决办法

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

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