新手问题:在一个单元中如何使用另一个单元中自定义的过程?详看内容

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
uses
   unit2;procedure TForm1.Button1Click(Sender: TObject);
begin
form2.mybbb;
end;end.
-------------unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm2 = class(TForm)
    Button1: TButton;
  private
         procedure mybbb;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation
  procedure TForm2.mybbb ;
  begin
     showmessage('dddddddd');
  end;{$R *.dfm}end.
以上是两个单元文件,在unit2中我自定义了一个过程mybbb,在unit1中调用这个过程,可是我编译时却总报错:undeclared identifier:'mybbb'. 请大家帮帮我分析一下原因,多谢了.

Answer 1

public
procedure mybb; //看这里
    { Public declarations }
  end;var
  Form2: TForm2;implementation
  procedure TForm2.mybbb ;
  begin
     showmessage('dddddddd');
  end;

Answer 2

你的定义是 Private 是私有的，按照楼上的更改为 public 就可以供外部调用了。

Answer 3

为什么我总是在 CloneCenter(复制中心) 后面呢？

Answer 4

把过程放到Public中这样别的单元才能引用