相关疑难解决方法(0)

假设我在delphi项目中有两个表单,我希望能够从form2访问form1的变量.是否有人声明,在form1中可以从所有表单中读取一个"公共"变量？

我试过在公共声明中添加一个变量

    { private declarations }
  public
    { public declarations }
  test: integer;
  end;     

在形式2我有

    unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, unit1;

type

  { TForm2 }

  TForm2 = class(TForm)
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form2: TForm2; 
implementation

{$R *.lfm}

{ TForm2 }

procedure TForm2.FormCreate(Sender: TObject);
begin
  form1 //<---------- DOES NOT GET RECOGNIZED
end;

end.

然后我将'Unit1'放入Form2的使用部分,但由于循环引用,我似乎无法做到这一点.如果可能的话,我想不要使用指针.

我应该用什么列表类型来存储枚举值？我已尝试使用TObjectList,我强制转换为TObject以添加值,但在从列表中读取时无法将其强制转换为枚举.

你用什么列表来存储枚举？