原文链接
Delphi使用pageControl实现镶嵌窗体
千里之行_12
2017-05-06 23:02:40
浏览46
函数 HTTPS form Create delphi pageControl 镶嵌窗体
摘要: Delphi使用pageControl实现镶嵌窗体
开发时需要把原来的几个功能集中整合到一个窗体,使用frame要重新写,而且一般前端都是继承查询和编辑两个基本窗体框架,好多和后台交互以及界面实现都写好了。这时使用pageControl实现镶嵌窗体,可以不改变基本框架。
procedure TForm5.Button1Click(Sender: TObject);
begin
CreateForm;
end;
procedure TForm5.CreateForm;
var Form : TForm1; TabSheet : TTabSheet;
begin
try
TabSheet := TTabSheet.Create(self);
TabSheet.PageControl := pgc1;
TabSheet.Tag := 2;
TabSheet.Align := alClient;
except
FreeAndNil(TabSheet);
Exit;
end;
try
Form := TForm1.Create(self);
Form.Parent := TabSheet;
Form.BorderStyle := bsNone;
Form.Top := 0;
Form.Left := 0;
Form.Width := TabSheet.Width;
Form.Height := TabSheet.Height;
Form.Align := alClient;
TabSheet.Caption := Form.Caption;
Form.Show;
except
FreeAndNil(Form);
Abort;
end;
pgc1.ActivePage := TabSheet;
end;
procedure TForm5.FormCreate(Sender: TObject);
begin
CreateForm;
end;
设计时主窗体
设计时镶嵌窗体
运行效果