guiclass.pas

来自「界面防真_100％扔掉第三方控件,完全自主的界面开发」· PAS 代码 · 共 94 行

////////////////////////////////////////////////////////////////////////////
//  FileName:    GUICLASS                                                //
//  Author  :   Wink.zow                                                  //
//  Date    :  21/12/2002                                                 //
////////////////////////////////////////////////////////////////////////////

unit GUIClass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons;

type
  TGUIBaseX = class(TForm)
    Tobar: TPanel;
    Image1: TImage;
    CbExit: TSpeedButton;
    BkOwer: TPanel;
    Image2: TImage;
    Fbutn: TSpeedButton;
    Maxbtn: TSpeedButton;
    Minbtn: TSpeedButton;
    procedure FormPaint(Sender: TObject);
    procedure CbExitClick(Sender: TObject);
    procedure MaxbtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MinbtnClick(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
     Max : Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GUIBaseX: TGUIBaseX;

implementation

{$R *.dfm}

procedure TGUIBaseX.FormPaint(Sender: TObject);
begin
    Fbutn.Left := 8;
    cbexit.Left := Width-16;
    Maxbtn.Left := Width-32;
    Minbtn.Left := Width-48;
  end;

procedure TGUIBaseX.CbExitClick(Sender: TObject);
begin
SendMessage(Handle,WM_CLOSE,0,0);
end;

procedure TGUIBaseX.MaxbtnClick(Sender: TObject);
begin
 if(Max) then
    begin
     ShowWindow(Handle,SW_Normal);
     Max := False;
    end
    else
 begin
     ShowWindow(Handle,SW_Maximize);
     Max := True;
 end;
end;

procedure TGUIBaseX.FormCreate(Sender: TObject);
begin
 Max := False;
end;

procedure TGUIBaseX.MinbtnClick(Sender: TObject);
begin
    ShowWindow(handle,SW_Minimize);
end;

procedure TGUIBaseX.Image1DblClick(Sender: TObject);
begin
    MaxbtnClick(Sender);
end;

procedure TGUIBaseX.FormResize(Sender: TObject);
begin
      Repaint();
end;

end.