以表单作为变量访问另一个表单上的对象

Question

我正在用 Delphi 编写一个程序，其中包括在多个表单上创建相同的动态对象（从不同时），然后另一个单元中的一个过程将某些文本写入它。

对象（TMemo）是如何创建的：

memHulp := TMemo.Create(frmHome);
with memHulp do
begin
  Parent := frmHome;
  Top := 208;
  Left := 88;
  Height := 98;
  Width := 209;
  ReadOnly := True;
end;

属性并不那么重要，它只是显示对象的创建以及它是如何被引用的。

现在，我需要从文本文件中将某些文本读入备忘录，这没有问题，但是当涉及的不同形式都使用相同的自定义过程时，就会出现问题。

在这种特殊情况下说frmHome.memHulp.Lines.Add() 很容易，但是当我需要它来显示备忘录上的文本时，在所有情况下名称完全相同，但形式不同，我遇到了一些麻烦。

frmHome 部分需要是一个变量。所以我尝试了这个：

var 
  Form: TForm;
begin
  Form := Application.FindComponent('frmHome') as TForm;
end;

这并没有警告我或给出错误，但是一旦我尝试说Form.memHulp.Lines.Add()，它就不起作用，我知道它可能没有Form 的任何属性，但是如何我让它看正确的地方吗？我需要能够告诉程序查看我作为参数传递到 FindComponent() 部分的任何表单名称。

如果这完全不可能，请提出其他解决方案来达到同样的效果。

Answer 1

Form.memHulp 不起作用，因为Form 是一个普通的TForm 指针，而TForm 没有memHulp 成员。您可以改用Form.FindComponent('memHulp')，因为您将TForm 对象分配为备忘录的Owner，但这需要您将Name 分配给备忘录，例如：

memHulp := TMemo.Create(frmHome);
with memHulp do
begin
  Parent := frmHome;
  Name := 'memHulp';
  ...
end;

或者，由于您说您一次只创建 1 个 Memo 对象，您可以简单地将 memHulp 设置为某个单元的 interface 部分中的全局变量，然后您可以直接访问它而无需寻找它。