我已经下载了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,没有任何内容。

最佳答案

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

保留表格1的原样:

unit Unit2;

interface

implementation

uses
  Unit1;

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


结束。

关于delphi - 调用Button1在Unit2中单击Form1/Unit1,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/27096457/

10-09 16:57