basefrom.~pas

来自「用Delphi实现的类似XP的简单的自定义FORM窗体,可以替换为自己的风格,或」· ~PAS 代码 · 共 71 行

unit BaseFrom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ToolWin, ComCtrls, Buttons, StdCtrls,
  TradeImage;

type
  TBase_frm = class(TForm)
    pl_Top: TPanel;
    Im_Top: TImage;
    Lb_Title: TLabel;
    TradeImg1: TTradeImg;
    pl_Left: TPanel;
    pl_Button: TPanel;
    pl_Right: TPanel;
    Im_Left: TImage;
    Im_Button: TImage;
    Im_Right: TImage;
    pl_Curren: TPanel;
    procedure TradeImg1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Im_TopMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Base_frm: TBase_frm;

implementation

{$R *.dfm}

procedure TBase_frm.TradeImg1Click(Sender: TObject);
begin
  close;
end;

procedure TBase_frm.FormCreate(Sender: TObject);
begin
  //Form1.Menu:='';
  //ToolBar1.EdgeBorders.ebTop:=false;
  Lb_Title.Transparent:=true;
  BorderStyle:=bsNone;
  FormStyle:=fsNormal;
end;

procedure TBase_frm.Im_TopMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=MBLEFT then
  begin
    releaseCapture;
    perform(WM_SYSCOMMAND,$F012,0);
  end;
end;

procedure TBase_frm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

end.