关于自定义过程的调用的问题

Question

我有Form1和Form2,                                                               
Form1中有Button1                                                                
Form2,中有Edit1.并且Unit2中加入自定义过程                                       
          procedure SetEdit1(getSet:boolean);                                   
   begin                                                                        
       Edit1.text :='ok';                                                       
  end                                                                           
                                                                                
而在Button1的onClick事件中调用这个过程                                          
                                                                                
                                                                                
那么我在Unit1和Unit2中要分别做怎样的说明?                                       
                                                                                

Answer 1

Unit1中
uses Until2
Button1的onClick事件中调用这个过程   
Form1.SetEdit1

Answer 2

写错了一点
Unit1中
uses Until2
Button1的onClick事件中调用这个过程   
Form2.SetEdit1

Answer 3

在Unit1中的Uses部分加上unit2表示引用这个单元。
你是初学吧。

Answer 4

是啊,可是,unit2中的SetEdit1该在哪里声明呢?

Answer 5

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
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
   Form2:=Tform2.Create(application);
try
   Form2.ShowModal;
finally
   Form2.Free;
   Form2.setedit(true);
   end;end;end.//--------------------------------------------------------------------------unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm2 = class(TForm)
    Edit1: TEdit;
    procedure SetEdit(getSet:boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }  end;var
  Form2: TForm2;implementation{$R *.dfm}procedure TForm2.SetEdit(getSet:boolean);
begin
       if getSet=true then
        with self do
       Edit1.text :='true:成功调用'
       else
       with self do
       Edit1.text :='false:成功调用';
end;procedure TForm2.FormCreate(Sender: TObject);
begin
        Edit1.Text:='未调用';
end;end.