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;

相关阅读 >>

Delphixe ansi字符串utf-8编码判断

Delphi实现ftp上传与下载

Delphi 获取鼠标坐标大全方法

Delphi 取得某一天所在的星期一及星期天

Delphi xe mysql数据库操作类 mysqlhelper

Delphi中的字符串比较(comparestr)

Delphi 完美获取硬盘id

Delphi 安卓程序如何读取外部配置文件

Delphi validatename 过滤特殊字符

Delphi监测按键输入

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