请教高手,用PageControl组件实现类似傲游浏览器中新增,关闭页面的功能 我就是想实现像傲游那样,双击空白处便可以新增一个空白页,双击已经存在的SHEET就是关闭这个SHEET,请问高手该用什么事件,具体该怎么写 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //****************************************************************//打开tabForm过程参数1.ClassType:TComponentClass组件类 2.OpenFrom:TForm窗体//****************************************************************procedure TForm1.Open_Tab_Form(ClassType:TComponentClass;OpenFrom:TForm);varThetabsheet:ttabsheet;ThePanel:Tpanel;begin //动态创建tabsheet和panel TheTabSheet := TTabSheet.Create(Self); TheTabSheet.PageControl := PageControl1; ThePanel:=Tpanel.Create(self); ThePanel.Parent:= TheTabSheet; ThePanel.Align:=alClient; //ThePanel.DockSite:=true; // 将ThePanel.DockSite:=true则出现关闭条 //载入一个窗体到TAbsheet application.CreateForm(ClassType,OpenFrom); OpenFrom.Dock(ThePanel,BoundsRect); OpenFrom.show; TheTabSheet.Caption:=OpenFrom.Caption; TheTabSheet.Show;end;//****************************************************************//双击tab关闭//****************************************************************procedure TForm1.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; 寻kylix 3 急,谢谢! 如何检测edit里输入的不是数字或者英文字母就提示错误信息 怎样实现DBGRID行位置的调换,并保存调换后的次序? 那里要设置一下呢? 关于数据库应用程序打包问题!!!!!!!! 200求解答??关于在控件中封装图片 怎样增加一个不带Form的单元文件? 找朋友 如何解决有关历史数据问题 超级简单!20大分:access数据库做网络应用,如果设置网络共享,如何防止用户反数据库文件给删除了? 所有的分都拿出来了---delphi 7+mysql5.0 +myODBC 存储过程调用及取得存储过程返回数据的问题 应用服务器不能连接数据库,socket方式
//****************************************************************
//打开tabForm过程参数1.ClassType:TComponentClass组件类 2.OpenFrom:TForm窗体
//****************************************************************
procedure TForm1.Open_Tab_Form(ClassType:TComponentClass;OpenFrom:TForm);
var
Thetabsheet:ttabsheet;
ThePanel:Tpanel;
begin
//动态创建tabsheet和panel
TheTabSheet := TTabSheet.Create(Self);
TheTabSheet.PageControl := PageControl1;
ThePanel:=Tpanel.Create(self);
ThePanel.Parent:= TheTabSheet;
ThePanel.Align:=alClient;
//ThePanel.DockSite:=true; // 将ThePanel.DockSite:=true则出现关闭条
//载入一个窗体到TAbsheet
application.CreateForm(ClassType,OpenFrom);
OpenFrom.Dock(ThePanel,BoundsRect);
OpenFrom.show;
TheTabSheet.Caption:=OpenFrom.Caption;
TheTabSheet.Show;
end;//****************************************************************
//双击tab关闭
//****************************************************************
procedure TForm1.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;