Delphi中多标签页面的实现

最新推荐文章于 2025-05-28 09:12:22 发布

一剑平江湖

最新推荐文章于 2025-05-28 09:12:22 发布

阅读量3.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/diligentcatrich/article/details/8281965

Delphi 专栏收录该内容

250 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的窗体管理方案，通过菜单项触发不同窗体的显示与隐藏，利用TRzPageControl组件进行窗体的切换，并在窗体关闭时检查当前活动页是否为首页以避免程序意外退出。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit uMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RzTabs, Menus;

type
TFrmMain = class(TForm)
    RzPageControl1: TRzPageControl;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    TabSheet1: TRzTabSheet;
    procedure N11Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure RzPageControl1Close(Sender: TObject; var AllowClose: Boolean);
private
    { Private declarations }
public
    procedure ShowDockForm(FormClass: TFormClass; dockCtrl: TRzPageControl );

end;

var
FrmMain: TFrmMain;

implementation

uses
Unit1;

{$R *.dfm}
{ TForm12 }

procedure TFrmMain.N11Click(Sender: TObject);
begin
ShowDockForm(TForm1,RzPageControl1);
end;

//procedure TFrmMain.N21Click(Sender: TObject);
//begin
// ShowDockForm(TForm2,RzPageControl1);
//end;
//
//procedure TFrmMain.N31Click(Sender: TObject);
//begin
// ShowDockForm(TForm3,RzPageControl1);
//end;

procedure TFrmMain.RzPageControl1Close(Sender: TObject;
var AllowClose: Boolean);
begin
AllowClose := RzPageControl1.ActivePageIndex >0;
end;

procedure TFrmMain.ShowDockForm(FormClass: TFormClass; dockCtrl: TRzPageControl);
procedure ShowCaption(ParentCtrl: TWinControl; ACaption: string);
begin
if ParentCtrl is TRzTabSheet then
TRzTabSheet(ParentCtrl).Caption := ACaption;
end;

var
i: Integer;
TabCtrl: TRzTabSheet;
Form: TForm;
begin
Screen.Cursor := crHourGlass;
try
    for i := 0 to Screen.CustomFormCount - 1 do
      if Screen.CustomForms[i] is FormClass then
      begin
        if (not(Screen.CustomForms[i]).Visible) then
          (Screen.CustomForms[i]).Visible := True;
        (Screen.CustomForms[i]).BringToFront;
        (Screen.CustomForms[i]).SetFocus;
        TabCtrl := TRzTabSheet(Screen.CustomForms[i].Parent);
        ShowCaption(TabCtrl, Screen.CustomForms[i].Caption);
        TRzPageControl(dockCtrl).ActivePageIndex := TabCtrl.PageIndex;
        exit;
      end;

    TabCtrl := TRzTabSheet.Create(dockCtrl); // dockCtrl
    TabCtrl.PageControl := TRzPageControl(dockCtrl);
    TRzPageControl(dockCtrl).ActivePageIndex := TabCtrl.PageIndex;

    Form := FormClass.Create(TabCtrl);
    with Form do
      try
        ManualDock(TabCtrl);
        ShowCaption(TabCtrl, Caption);

        Show;
        Form.WindowState := wsMaximized;
        Form.Align := alClient;
      except
        Free;
      end;

finally
Screen.Cursor := crDefault;
end;
end;

end.