在Delphi中切换两种主要形式

Question

我已针对同一问题尝试了此answer，但在此行中

LoginSucceeded := flogin.Successful;

我收到以下错误：

  

未声明的标识符成功

如何解决？

Answer 1

在您的登录表单中，创建一个布尔属性Successful，用于定义完成时登录的状态。

Type
  TLoginForm = class(TForm)
  ...
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    FSuccessful: Boolean;
  public 
    property Successful: Boolean read FSuccessful write FSuccessful;
  end;

procedure TLoginForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Successful := "Enter your condition of successful login here";
end;