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 判断时间是否合法 -isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday

Delphi 如何在程序中动态设置墙纸(使用iactivedesktop接口)

Delphi 采集功能代码getstr

Delphi 无类型文件读写

Delphi程序常用的公共代码

Delphi adoquery查询,如何得到查询记录数?

Delphi得到系统目录的几个方法

Delphi版文件夹加密软件源代码

Delphi显示jpg、png、gif图片

Delphi获取闲置时间

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...