如何引用另一窗体控件的值

Alice

推荐方法一
不推荐跨窗体访问控件的方法，可以使用面向对象中的封装，即TTimer控件不放在主窗体中，而是放在公用资源集中，在资源集中提供出一个方法。主窗体只是和其他窗体一样的一个调用者。

unit ZYJ1;

interface

uses
  Business.System, Business.Model, Business.Forms;

type
  TZYJ1 = class(TBizLibrary)
  private
    {private declarations}
  public
    {public declarations}
    static function Timer: TTimer;
  end;

implementation

var
  aa: TTimer;

static function TZYJ1.Timer: TTimer;
begin
  if not Assigned(aa) then
    aa := TTimer.Create(nil);
  Result := aa;
end;

end.
其中的aa是一个TTimer的变量，在Timer静态方法中，通过代码创建对象，我们可以保证只有一个类实例被创建的。

方法二
还可以使用和平台中的代理控件类似的思想（同Delphi），即提供一个新类，公布出属性或者方法，如GetTimer和SetTimer等，新类中有域变量是TTimer类型，在访问域变量时候控制类实例只有一个。