Delphi如何定义一个能被所有Form调用的函数或过程？

Question

声明在一个公共单元里
需要的Form引用这个单元即可！

Answer 1

在需要调用Form中引用被调用的Form
如果Form4要调用  Form2，Form3,Form1
就在Form4中
uses Form2,form1,form3;

Answer 2

定义到公共的单元中！每个Form引用这个单元即可，还可以写到DataModule中，各窗体引用DM也可以调用其中的函数。

Answer 3

方法很多，如果你用较高版本的DELPHI可以试试 class helper, 可以轻松扩展一个类的方法例如这是用 D2009 写的代码
// unit1 单元type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;  // 对 TForm 类扩展一个 func 方法
  TMyExtFrom = class helper for TForm
  public
    procedure func;
  end;.... 
  
procedure TMyExtFrom.func;
begin
  ShowMessage('Func');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.func; // 当前 form1 扩展了一个新方法 Func
end;
在另一个单元中的Form2也可以拥有func方法，只要 uses TMyExtFrom 所在单元// unit2 单元type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;...... uses unit1;procedure TForm2.FormCreate(Sender: TObject);
begin
  Self.func;
end;

Answer 4

谢谢，我用的是Delphi 7。