我用了: MapForm:=self.ActiveMDIChild; 出错信息为:Incompatible Types: "TMapForm" and "TForm"好像我只要把Form的名字改了就会变成一个新的类呀!(我以前使用VC的,刚刚接触Delphi,所以把“T”理解成VC里面的类了)
var i:integer; begin for i:=0 to self.ActiveMDIChild.ComponentCount-1 do begin if self.ActiveMDIChild.Components[i] is TBUtton then Tbutton(self.ActiveMDIChild.Components[i]).caption:=inttostr(i); end;动用马甲了!这个凑合可以用!
MapForm:=self.ActiveMDIChild;
出错信息为:Incompatible Types: "TMapForm" and "TForm"好像我只要把Form的名字改了就会变成一个新的类呀!(我以前使用VC的,刚刚接触Delphi,所以把“T”理解成VC里面的类了)
begin
for i:=0 to self.ActiveMDIChild.ComponentCount-1 do
begin
if self.ActiveMDIChild.Components[i] is TBUtton then
Tbutton(self.ActiveMDIChild.Components[i]).caption:=inttostr(i);
end;动用马甲了!这个凑合可以用!
MapForm:=TMapForm(ActiveMDIChild);还是谢谢你了!