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 synedit1 synmemo1 显示行号

Delphi 根据注册表信息判断程序是否安装

Delphi中读写txt文件的一段代码

Delphi 手机号码库段号地区查询

Delphi recodedatetime、recodedate、recodetime、recodeyear ... 修改时间

Delphi 获得idhttp redirect后的url

Delphi idhttp最简洁的修改和取得cookie例子

Delphi xe8 androdi利用httpclient实现的一个app自动更新组件

Delphi 正确得到本地ip

Delphi代码中嵌入汇编asm代码

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