delphi - 如何从窗体单元外部访问delphi控件？

Question

我试图从如下定义的过程中调用计时器的 Enabled 属性: procedure Slide(Form: TForm; Show: Boolean); 并且不使用固定的表单名称(例如: Form2.Timer...)

将表单的单位放入使用列表后，可以使用:Form2.Timer1.Enabled := True;但以下内容不起作用: Form.Timer1.Enabled := True; (其中 Form 是作为参数传递给过程的表单。

如何访问表单上的计时器组件？

提前致谢。

Answer 1

如果您要传递到函数中的每个表单都有一个名为“Timer1”的已发布字段，那么您可以使用 FindComponent获取对其引用的方法:

procedure Slide(Form: TForm; Show: Boolean);
var
  TimerObj: TComponent;
  Timer: TTimer;
begin
  TimerObj := Form.FindComponent('Timer1');
  Assert(Assigned(TimerObj), 'Form has no Timer1');
  Assert(TimerObj is TTimer, 'Form.Timer1 is not a TTimer');
  Timer := TTimer(TimerObj);
  // Continue using Form and Timer
end;

不过，这是一个相当弱的编程接口(interface)。如果您不小心忽略了在表单上放置计时器，或者您给了它错误的名称，或者您给了它不同的可见性，那么直到运行时(当断言失败)。即使表单确实满足所需的接口(interface)，也不能保证它是有意的。可能有很多表单发布了名为 Timer1 的 TTimer 字段，但它们并不都适合与此 Slide 函数一起使用。它们可能已经将计时器用于其他目的，因此对它们调用 Slide 会破坏程序的其他部分，而且可能会以难以调试的方式。

如果您为计时器指定一个更具描述性的名称(例如 SlideTimer)，那么界面会稍微强大一些。 Timer1 只是表示它是您在该表单上创建的第一个 TTimer，一旦您离开表单设计器，它就不再是一个有意义的名称。您不需要使用 IDE 的命名选择。

<小时/>

另一个更好的选择是让所有可滑动表单都有一个公共(public)基类，并将计时器放入该基类中。然后，更改 Slide 中的参数类型以采用该表单类，而不仅仅是 TForm。

type
  TSlidableForm = class(TForm)
    Timer1: TTimer;
  end;

procedure Slide(Form: TSlidableForm; Show: Boolean);

您似乎担心必须在 Slide 单元中包含对 Form2 单元的引用，这通常是一个值得关注的问题。您不希望代码耦合得太紧密，因为此 Slide 函数应该能够在一个项目中使用不止一种表单。但如果太松，就会遇到我上面描述的问题。这个TSlidableForm类是一个折衷方案；您的 Slide 函数未直接绑定(bind)到 TForm2 或其单元。将 TForm2 更改为源自 TSlidableForm。

<小时/>

The_Fox's second suggestion是我的第一个的变体，但还有另一个变体。您可以传递对组件本身的引用，而不是传递计时器组件的名称:

procedure Slide(Form: TForm; Timer: TTimer; Show: Boolean);

现在您不需要使用FindComponent来搜索要使用的计时器；您已经提供了对其的直接引用。组件的名称并不重要，因此不同的形式可以使用不同的名称。你可以这样调用它:

Slide(Form2, Form2.Timer1, True);
Slide(AnotherForm, AnotherForm.SlideTimer, False);

<小时/>

一旦您走到这一步，您可能会超出原来的问题，并意识到计时器甚至不再需要属于表单。您可以专门为调用 Slide 创建它，或者计时器可以完全属于其他东西(例如数据模块)。但是，如果您打算仅为 Slide 调用创建计时器，那么您可以使用 David 的建议，在例程本身内创建计时器，而根本不需要调用者或表单处理它:

procedure Slide(Form: TForm; Show: Boolean);
var
  Timer: TTimer;
begin
  Timer := TTimer.Create(nil);
  try
    Timer.OnTimer := ...;
    Timer.Interval := 500;
    Timer.Enabled := True;

    // Put your normal Slide stuff here
  finally
    Timer.Free;
  end;
end;