你可以这样使用
With (ActiveMDIChild as tform2) do
begin
edit1.text:=...
...
end;如果目录ActiveMDIChild 是form2(类型是tform2)就可以这样用
With (ActiveMDIChild as tform2) do
begin
edit1.text:=...
...
end;如果目录ActiveMDIChild 是form2(类型是tform2)就可以这样用
form.属性 不就可以,不明白你意思,