custclass.~pas

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

unit CustClass;

interface

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

type
  TCustForm = class(TForm)
    Topbar: TPanel;
    Image1: TImage;
    CloseBtn: TSpeedButton;
    MaxtBtn: TSpeedButton;
    MinBtn: TSpeedButton;
    OwerPanel: TPanel;
    procedure CloseBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MaxtBtnClick(Sender: TObject);
    procedure MinBtnClick(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
     Max :Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CustForm: TCustForm;

implementation

{$R *.dfm}

procedure TCustForm.CloseBtnClick(Sender: TObject);
begin
 SendMessage(Handle,WM_CLOSE,0,0);
end;

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

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

procedure TCustForm.Image1DblClick(Sender: TObject);
begin
 Maxtbtnclick(sender);
end;

procedure TCustForm.FormPaint(Sender: TObject);
begin
   closeBtn.Left := Width-18;
   Maxtbtn.Left := Width - 36;
   MinBtn.Left := Width  - 52;

end;

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

end.