您的位置:程序门 -> delphi -> 网络通信/分布式开发



怎么传递类型为类(class)的参数啊 


[收藏此页] [打印本页]选择字色:背景色:字体:[][][]


怎么传递类型为类(class)的参数啊
发表于:2008-01-14 20:37:46 楼主
怎么传递类型为类(class)的参数啊  
例如:  
var          
form1:tform1  
form1:=tform1.create(self)  
form1.show()  

tform1       类型是       class(tform)  
我想把tform1       变为参数形式,可是不知到用什么类型;  

procedure       test(作为参数的tform1);  
begin  
然后操作       作为参数的tform1  
end;
发表于:2008-01-14 20:40:521楼 得分:0
type
    tmyform=class   of   tform1;
...

procedure   test(myform:   tmyform);
begin
end;
发表于:2008-01-14 20:55:272楼 得分:0
delphi(pascal) code
procedure test(aform: tform); begimn aform.show; end;
发表于:2008-01-14 22:37:463楼 得分:0
传递类要使用类引用。

type
    tformclass:   class   of   tfrom


    procedure   test(aform:   tformclass);
    begin
    end;
发表于:2008-01-15 10:14:314楼 得分:0
支持三楼.用类引用.二楼也可行


快速检索

最新资讯
热门点击