unit1.pas

来自「SUISkin 是为Delphi和C++Builder开发的最易用的界面增强VC」· PAS 代码 · 共 56 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, SUISkinEngine, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    dfs1: TMenuItem;
    fds1: TMenuItem;
    fds2: TMenuItem;
    N1: TMenuItem;
    New1: TMenuItem;
    suiSkinEngine1: TsuiSkinEngine;
    procedure fds2Click(Sender: TObject);
    procedure fds1Click(Sender: TObject);
    procedure New1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm1.fds2Click(Sender: TObject);
begin
    Cascade
end;

procedure TForm1.fds1Click(Sender: TObject);
begin
    Tile
end;

procedure TForm1.New1Click(Sender: TObject);
var
    NewForm : TForm3;
begin
    NewForm := TForm3.Create(Application);
    suiSkinEngine1.AddForm(NewForm);
    NewForm.Show();
end;

end.