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 文件名变小写的函数

Delphi 使用windows api(wincrypt)计算文件md5哈希，支持大文件

Delphi 如何检测你的电脑日期或时间的变化

Delphi内存映射大文件

Delphi 为idhttp伪造session

Delphi parent属性的另类用法

Delphi jsondataobjects

Delphi enumwindows回调函数获取qq2009窗体句柄

Delphi stringgrid 加载excel表格文件内容自动宽度

Delphi hex --> string

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