delphi 窗体之间组件的调用问题～请大神们帮忙

Question

delphi

Answer 1

应该是你单元引用错误了下边是单元之间引用的示例代码unit Unit4;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TC = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }  public
    { Public declarations }
  end;var
  C: TC;implementation
uses unit5; //注意这句, 引用单元
{$R *.dfm}procedure TC.Button1Click(Sender: TObject);
begin
  //A为unit5单元中声明的全局变量
  A.Show;
  A.Edit1.Text := 'aa';
end;procedure TC.Button2Click(Sender: TObject);
var
  FA : TA;
begin
  //FA, 局部变量, 类型为unit5的TA类
  FA := TA.Create(nil);
  try
    FA.Edit1.Text := 'cc';
    FA.ShowModal;
  finally
    FA.Free;
  end;
end;end.
unit Unit5;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TA = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  A: TA; //注意这句implementation{$R *.dfm}end.