mainform.pas

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

unit MainForm;

interface

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

type
  TForm1 = class(TForm)
    GDSkinRegions1: TGDSkinRegions;
    srTopLeft: TGdSkinRegion;
    srTopCenter: TGdSkinRegion;
    srTopSurface: TGdSkinRegion;
    srTopRight: TGdSkinRegion;
    srBodyLeft: TGdSkinRegion;
    srBodyRight: TGdSkinRegion;
    srBottomLeft: TGdSkinRegion;
    GdBottomRight: TGdSkinRegion;
    GdBottomSurface: TGdSkinRegion;
    srMinBtn: TGdSkinRegion;
    srCloseBtn: TGdSkinRegion;
    srMainMenu: TGdSkinRegion;
    srChatRoom: TGdSkinRegion;
    sbClose: TGDSkinButton;
    srButton: TGdSkinRegion;
    GDSkinForm1: TGDSkinForm;
    CheckBox1: TCheckBox;
    procedure FormResize(Sender: TObject);
    procedure sbCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Rearray;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormResize(Sender: TObject);
begin
  Rearray;
end;

procedure TForm1.Rearray;
begin
  sbClose.left:=Width-11;
  sbClose.Top:=3;
end;

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  Rearray;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  GDSkinForm1.MouseMove:=CheckBox1.Checked;
end;

end.