Question

如何在delphi中将一个procedure声明为public？

我想在delphi中将一个procedure声明为public，以便在一个程序中的所有form中都可以使用，请问该如何做？
例如我要声明该函数：procedure tform3.CreateCtrls(n:Integer);该怎么操作？

Answer 1

type
TForm1 = class(TForm)
ADOQuery1: TADOQuery;
ADOConnection1: TADOConnection;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
//这里...
{ Public declarations }
end;