guiclassy.pas

界面防真_100％扔掉第三方控件,完全自主的界面开发

unit GUIClassY;

interface

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

type
  TGUIBaseY = class(TForm)
    Topbar: TPanel;
    Image1: TImage;
    exitbtn: TSpeedButton;
    MaxBtn: TSpeedButton;
    Minbtn: TSpeedButton;
    Bkower: TPanel;
    Title: TLabel;
    procedure exitbtnClick(Sender: TObject);
    procedure MaxBtnClick(Sender: TObject);
    procedure MinbtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BkowerMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
     Max : Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GUIBaseY: TGUIBaseY;

implementation

{$R *.dfm}

procedure TGUIBaseY.exitbtnClick(Sender: TObject);
begin
 SendMessage(handle,WM_CLOSE,0,0);
end;

procedure TGUIBaseY.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 TGUIBaseY.MinbtnClick(Sender: TObject);
begin
  ShowWindow(handle,SW_Minimize);
end;

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

procedure TGUIBaseY.FormPaint(Sender: TObject);
begin
    Exitbtn.Left := Width - 18;
    MaxBtn.Left := Width - 36;
    MinBtn.Left := Width - 54;
    Title.left := 25;
    Title.Caption := Self.Caption;
end;

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

procedure TGUIBaseY.Image1DblClick(Sender: TObject);
begin
 MaxBtnClick(Sender);
end;

procedure TGUIBaseY.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
   SC_DragMove = $F012; //$F020
begin
   ReleaseCapture;
  Perform(GUIbaseY.Handle, SC_DragMove, 0);

end;

procedure TGUIBaseY.BkowerMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
   SC_DragMove = $F012; //$F020
begin
   ReleaseCapture;
 Perform(GUIbaseY.Handle, SC_DragMove, 0);

end;

end.