Delphi如何定义一个能被所有Form调用的函数或过程? 声明在一个公共单元里需要的Form引用这个单元即可! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在需要调用Form中引用被调用的Form如果Form4要调用 Form2,Form3,Form1就在Form4中uses Form2,form1,form3; 定义到公共的单元中!每个Form引用这个单元即可,还可以写到DataModule中,各窗体引用DM也可以调用其中的函数。 方法很多,如果你用较高版本的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 扩展了一个新方法 Funcend;在另一个单元中的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; 谢谢,我用的是Delphi 7。 数据库操作问题求助!!!!!! 请问如何将access导出到excel?如何将excel文件导入到access中? 关于WMF文件的问题 Delphi中怎么写dll? 请教高手:delphi 中存储过程的使用 高分求教indy传送文件的问题 版主,zswang,我刚看了My_first (海浪) 的几个贴子,给的什么分?我没搞懂? adoquery2.Close; 喜欢助人为乐的朋友请进! 如何在运行环境下设置打印机的纸张大小? 深夜请教一下,为什么Form有MainWndProc这个过程,而一般窗体控件没有呢 Form1中初始化Form2中的参数报错,是因为此时Form2没有创建?
如果Form4要调用 Form2,Form3,Form1
就在Form4中
uses Form2,form1,form3;
// 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;
谢谢,我用的是Delphi 7。