frmbass.pas

商场管理系统源码 一套值得初学者学习的源码包含全部源码,控件

unit FRMBASS;

interface

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

type
  TFrm_bass = class(TForm)
    P_back: TPanel;
    P_main: TPanel;
    Image: TImage;
    L_title: TLabel;
    Panel_down: TPanel;
    Panel_button: TPanel;
    OKBtn: TDsFancyButton;
    CancelBtn: TDsFancyButton;
    Bevel_bass: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_bass: TFrm_bass;

implementation

{$R *.dfm}

procedure TFrm_bass.FormCreate(Sender: TObject);
var
   I_windows:integer;
begin
   P_back.Color :=Tcolor($00DDDDDD);
   P_main.Color :=Tcolor($00E3E3E3);
   self.Caption :=application.Title + ' - ';
   with frm_main do
   begin
      for I_windows:=0 to Panel_main.DockClientCount - 1 do
      begin
         Panel_main.DockClients[I_windows].Hide ;
      end;
   end;
end;

procedure TFrm_bass.FormShow(Sender: TObject);
begin
   self.Resize ;
end;

procedure TFrm_bass.OKBtnClick(Sender: TObject);
begin
   SELF.Close ;
end;

procedure TFrm_bass.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   try
      self.Release ;
   except
      messagedlg('系统在关闭〖'+self.Caption+'〗窗口时发生非致命的保护性错误'
            +#13+#13+'系统将停止运行，请立即与程序供应商联系。',mtError,[mbok],0);
      application.Terminate ;
   end;
end;

procedure TFrm_bass.FormResize(Sender: TObject);
begin
   L_title.Caption :=application.Title +' - '+self.Caption ;
   L_title.left:=0;
   L_title.top:=1;
   L_title.Width :=self.Width ;
end;

procedure TFrm_bass.CancelBtnClick(Sender: TObject);
begin
   self.Close ;
end;

end.