mdimain.pas

themeengine6源码

unit mdimain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  te_controls, te_engine, te_switcher, ExtCtrls;

type
  TfrmMDIMain = class(TForm)
    NgMenuBar1: TTeMenuBar;
    NgForm1: TTeForm;
    NgThemeEngine1: TTeThemeEngine;
    CustomItem1: TTeItem;
    CustomItem2: TTeItem;
    CustomItem3: TTeItem;
    CustomItem4: TTeItem;
    WindowItem: TTeItem;
    CustomItem6: TTeItem;
    CustomItem7: TTeItem;
    CustomItem8: TTeItem;
    CustomItem9: TTeItem;
    CustomItem10: TTeItem;
    TeThemeList1: TTeThemeList;
    tePanel1: TtePanel;
    TeThemeSwitcher1: TTeThemeSwitcher;
    procedure CustomItem3Click(Sender: TObject);
    procedure CustomItem4Click(Sender: TObject);
    procedure CustomItem2Click(Sender: TObject);
    procedure CustomItem6Click(Sender: TObject);
    procedure CustomItem7Click(Sender: TObject);
  private
    { Private declarations }
    Count: integer;
  public
    { Public declarations }
  end;

var
  frmMDIMain: TfrmMDIMain;

implementation

uses MDIChild;

{$R *.DFM}

procedure TfrmMDIMain.CustomItem3Click(Sender: TObject);
begin
  if ActiveMDIChild <> nil then
    ActiveMDIChild.Close;
end;

procedure TfrmMDIMain.CustomItem4Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmMDIMain.CustomItem2Click(Sender: TObject);
var
  Child: TfrmMDIChild;
begin
  { New Child }
  Inc(Count);

  Child := TfrmMDIChild.Create(Self);
  Child.Caption := Child.Caption + ' ' + IntToStr(Count);
end;

procedure TfrmMDIMain.CustomItem6Click(Sender: TObject);
begin
  NgForm1.Tile;
end;

procedure TfrmMDIMain.CustomItem7Click(Sender: TObject);
begin
  NgForm1.Cascade;
end;

end.