如何从动态生成的表单中检索数据？

Question

我在从程序动态生成的表单中获取信息时遇到问题。

我的程序一直运行，直到需要用户提供数据为止；此时它应该运行一个输入表单，并从中检索数据。

下面的示例代码运行并显示输入表单，但不允许对其进行任何输入。它确实返回表单初始化时编辑框中文本的长度。

这种方法有什么不正确的地方？

如果可能的话，我想保持分离接口和实现（包括表单）的整体方法；我还想继续使用无模式的表单显示。

编辑

按照@Ken White的建议对模态形式进行调查后，我确定模态形式不适合我想要做的事情。我想出了一个解决方案，总结为：

1. 两个接口：
2. IResult - 定义为将所需的数据从表单传递到 UserInput。
3. IUserInput - 从 IResult 中的表单获取用户输入。
4. 两个创建者函数 - 每个接口一个。
5. 接口的实现 - 每个接口一个对象，一个用于实际的用户输入表单。

我写了详细说明 该解决方案。

结束编辑

program TestProject2;

uses Dialogs, Forms, StdCtrls, SysUtils;

type
  ITestForm = interface
    function getFormString: string;
    procedure setFormString(aString: string);
  end;

  TForm6 = class(TForm, ITestForm)
    Edit1: TEdit;
  private
    function getFormString: string;
    procedure setFormString(aString: string);
  end;

{$R Unit6.dfm}

function NewTestFormOutput: string;
  var
    tmpForm: TForm6;
  begin
    Application.CreateForm(TForm6, tmpForm);
    tmpForm.Show;
    Result := tmpForm.getFormString;
  end;

function TForm6.getFormString: string;
  begin
    Result := Edit1.Text;
  end;

procedure TForm6.setFormString(aString: string);
  begin
    Edit1.Text := aString;
  end;

var
  i: Integer;
  parser: string;
begin
  parser := NewTestFormOutput;
  i := Length(parser);
  ShowMessage('The length is: ' + InttoStr(i));
end.

Answer 1

您发布的代码不允许用户在检索 TForm6.Edit1.Text 的内容之前提供任何输入。您基本上会说：

1. 创建表单
2. 将其显示给用户
3. 立即读取设计时在表单的 Edit1.Text 中设置的任何内容

如果您想从用户那里获取内容，您必须让他们有机会将其提供给您。您需要使用 ShowModal 来呈现表单并让用户输入内容，或者使用 Show 并让表单传回信息（通过诸如 PostMessage 之类的机制） 或事件处理程序，正如 Gerry 在他的评论中提到的那样）当用户单击按钮时让您知道有数据要检索。

但要点仍然是，您必须让用户有机会提供输入，然后才能检索它。