简单问题,请教

Question

我使用一个登录窗口(不是主窗口)返回一个boolean变量给主窗口,请问是不是要一个全局变量,如何定义全局变量?

Answer 1

public    
     a: Boolean;
end;

Answer 2

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    bflag: Boolean;//<---------------------|
  end;                                     |
                                           |
var                                         可以在这两处
  Form1: TForm1;                           |
  bflag: Boolean;//<-----------------------|implementation{$R *.dfm}end.

Answer 3

在主窗口中，的targ属性中，设置...

Answer 4

type
  TmainF = class(TForm)
  ......
  ....
  end;
  var 
    .....;
  Procedure mainFrameShow(transfer:boolean);implementation{$R *.dfm}
Procedure mainFrameShow(transfer:boolean);
var
  mainFrame: TmainF;
begin
  mainFrame:=TmainF.create(Application);
  if transfer=true then
  begin
    try
      mainFrame.show;
    finally
      mainFrame.free;
    end;
  end
  else 
   ??????;      
end;
只要在登陆窗口调用这个过程就行了。