Delphi 利用uniGUI中的TUniPageControl实现多页面


本文整理自网络,侵删。

 
实现代码:

procedure TfrmMain.OpenForm(Caption,FormClassName:string);
var
  i:integer;
  sheet:TUniTabSheet;
begin
  for i := 0 to pgeMain.PageCount-1  do
    begin
      if pgeMain.Pages[i].Caption=Caption then
         begin
         pgeMain.ActivePageIndex:=i;
         exit;
         end;
    end;


  sheet:=TUniTabSheet.Create(Self);
  sheet.Closable:=True;
  sheet.Caption:=Caption;
  sheet.PageIndex:=i+1;
  sheet.PageControl:=pgeMain;

  FCurrentFrame:=TUniFrameClass(FindClass(FormClassName)).Create(Self);

  FCurrentFrame.Align:=alClient;
  FCurrentFrame.Parent:=sheet;
  pgeMain.ActivePage:=sheet;


end;

相关阅读 >>

Delphi hmac256

Delphi xe5实现通过tmemorystream将一个unicodestring写入到一个unicode文本文件

Delphi 模似键盘输入又一方法

Delphi 用ini记录combobox的itemindex

Delphi 移动windows开始按钮到任务栏中的任何位置

Delphi 注册表管理

Delphi 读取eset nod32 的用户名与密码

Delphi richedit的内容保存为图片

Delphi 列举系统服务,停止启动所选服务

Delphi判断文本文件的编码格式

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...