gdmainform.~pas

来自「delphi制作的界面控件」· ~PAS 代码 · 共 69 行

unit GDMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, GDSkinControls, GdClasses, GDRegionList, GDSkinForm;

type
  TForm1 = class(TForm)
    GDSkinRegions1: TGDSkinRegions;
    srBtn1: TGdSkinRegion;
    srBtn2: TGdSkinRegion;
    srTopLeft: TGdSkinRegion;
    srFormBottom: TGdSkinRegion;
    srFormLeft: TGdSkinRegion;
    srFormRight: TGdSkinRegion;
    srTopMid: TGdSkinRegion;
    srTopRight: TGdSkinRegion;
    srMinBtn: TGdSkinRegion;
    srHelpBtn: TGdSkinRegion;
    srCloseBtn: TGdSkinRegion;
    SkinButton4: TGDSkinButton;
    SkinButton5: TGDSkinButton;
    srBottomRight: TGdSkinRegion;
    srBottomSurface: TGdSkinRegion;
    SkinButton3: TGDSkinButton;
    GDSkinForm1: TGDSkinForm;
    GDSkinButton1: TGDSkinButton;
    procedure SkinButton5Click(Sender: TObject);
    procedure SkinButton4Click(Sender: TObject);
    procedure SkinButton3Click(Sender: TObject);
    procedure GDSkinButton1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SkinButton5Click(Sender: TObject);
begin
  Application.Minimize;
end;

procedure TForm1.SkinButton4Click(Sender: TObject);
begin
  ShowMessage('help message.');
end;

procedure TForm1.SkinButton3Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.GDSkinButton1Click(Sender: TObject);
begin
  close;
end;

end.