delphi - 调用Button1在Unit2中单击Form1/Unit1

Question

我已经下载了Delphi XE7，并且在访问另一个单元时遇到了一些问题...
我需要从另一个单元调用过程，所以我将给出一个非常基本的说明，简单的程序...
这是来自主Unit1的具有形式和button1的代码：

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Unit2;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Hello');
end;

end.

这是来自Unit2的代码：

unit Unit2;
interface
implementation
uses Unit1;
end.

现在，如何在单击form1上的button1时使Unit1中的过程Button1Click像显示消息一样，让我们​​说HelloFromUnit2？ Unit2是codeUnit，没有任何内容。

Answer 1

使用内置过程调用Click处理程序

保留表格1的原样：

unit Unit2;

interface

implementation

uses 
  Unit1;

procedure Click;
begin
  if Assigned(Form1) then
    Form1.Button1.Click;
end;

结束。