一个MDI文本文件编辑器
打开了N个子窗体
子窗体的.pas文件有一些public的过程和函数
我想在父窗体调用当前活动的子窗体函数
我用Self.ActiveChildForm无法调用
直接frmEdit.xxxx运行出错
求大家指导,谢谢!
回复于: 2013-01-21 15:31:31
将子窗口的函数定义为类函数
calss function a(const s: string): Boolean;
calss function a(const s: string): Boolean;
有两种解决办法,一种就是上楼说的,定义成class function静态方法,第二种就是普通的方法:
Delphi/Pascal code
var
AForm : TForm;
begin
AForm := Self.ActiveMDIChild;
if AForm <> nil then
(AForm as TForm2).func('Hello');
end;
这两种方法都必须在MDI窗体中uses子窗体。
静态方法就一句话:
Delphi/Pascal code
TForm2.func2(1);
form2窗体两个被调方法
Delphi/Pascal code
TForm2 = class(TForm)
private
{ Private declarations }
public
function func(Astring : string) : Boolean;
class function func2(AInteger : Integer) : Boolean;
{ Public declarations }
end;