base.~pas

我觉得是很好的一个程序是关于房产中介的管理系统包跨哦出租出售求租求售的

unit base;

interface

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

type
  TFrm_Base = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Base: TFrm_Base;

implementation
uses common;
{$R *.DFM}

procedure TFrm_Base.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TFrm_Base.FormActivate(Sender: TObject);
begin
  self.Top  :=StrToInt(inttostr((mainForm.Height- self.Height)div 2))-60;
  self.left :=StrToInt(inttostr((mainForm.Width -self.Width)div 2));

end;



end.