forms - 将变量从项目源传递到表单

Question

在创建表单之前，我将一些逻辑放入项目源代码中。如果满足某些条件，我将继续创建表单。逻辑是生成我需要传递给表单的数据，比如说一些变量。我在表单的公共(public)部分声明了这些变量，但我找不到传递这些值的方法，因为这些变量需要创建表单才能存在。
有办法吗？我正在使用德尔福 2007。

Answer 1

我建议在满足条件后设置这些变量。

运行你的逻辑

检查条件

创建表格

在表格

上分配变量

在项目来源:

var
  MyVariable1 : integer;
  MyVariable2 : integer;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;

  //some logic to assign variables
  //...

  //create form and set variables only if condition is met, example:
  if(MyVariable1 + MyVariable2 > 10) then
  begin
    Application.CreateForm(TForm1, Form1);
    Form1.MyVariable1 := MyVariable1;
    Form1.MyVariable2 := MyVariable2;
  end;

  Application.Run;
end.

表格来源:

  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    MyVariable1 : integer;
    MyVariable2 : integer;
    { Public declarations }
  end;