急急急！！！怎样实例化一个类，并且可以让它在应用程序的运行过程中都有效，就像Application.createform建立form那样。

Question

你需要自定义你的create函数：
TClsSecurity.create(Aowner,tcomponent);
begin
inherate create; //这个关键字我记不清了，太长，是调用基类的create函数
////在这定义你的类的属性
/////endl;

Answer 1

修改你的单元如下，注意，凡是要使用ClsSecurity的单元，必须use UClsSecurity：
//=========Unit UClsSecurity=================
unit UClsSecurity;interfaceuses
  Windows, Messages, SysUtils, Classes;
type
  TClsSecurity=Class(TObject)
  UserNamei:string;
  private
    FUserName: string ;
    procedure SetUserName(const Value: string);
    { Private declarations }
  public
    { Public declarations }
    property UserName:string read FUserName write SetUserName stored true;
  end;var
  ClsSecurity: TClsSecurity;implementation{ TClsSecurity }procedure TClsSecurity.SetUserName(const Value: string);
begin
  FUserName := Value;
end;initialization
  ClsSecurity:=TClsSecurity.Create;finalization
  ClsSecurity.Free;end.

Answer 2

to: Kingron
好我回去试试，先谢谢你们了，今晚给分。

Answer 3

忘记了还有一个Unit附上，程序是在Showmessage(ClsSecurity.UserNamei);这一句出错了，请各位帮忙看看。
  
program PMS;uses
  Forms,
  Messages,
  Dialogs,
  UfrmMain in 'UfrmMain.pas' {frmMain},
  UfrmLogin in 'UfrmLogin.pas' {frmLogin},
  UDM in 'UDM.pas' {DM: TDataModule},
  UClsSecurity in 'UClsSecurity.pas';{$R *.RES}var ClsSecurity:TClsSecurity;
begin  Application.Initialize;
  Application.Title := 'Project Management System';
  ClsSecurity:=TClsSecurity.Create;  Application.CreateForm(TDM, DM);
  Application.CreateForm(TfrmLogin, frmLogin);
  frmLogin.ShowModal;
  Showmessage(ClsSecurity.UserNamei);
  if ClsSecurity.UserNamei<>'' then
    ShowMessage('ok');  Application.Run;end.

Answer 4

to:Kingron(单身走我路……) 
你说对了，我试过OK啦，三个星果然不一样，呵呵。给分了，虽然不多，但谢谢大家了。

Answer 5

Kingron同学已经多年未出江湖了，功力是很深的，据说现在正在隐居，等首周文王来找哩。