我已经下载了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/