请教!如何直接调用form2中的过程?(50分)

Z

zhengv

Unregistered / Unconfirmed
GUEST, unregistred user!
在form2中建了个过程。
procedure abc
begin
form2.memo1.lines.add('看见了!');
end;
如何在form1中直接调用?
TForm1.aaa1Click(Sender: TObject);
begin
form2.show;
form2.abc;
end;
end.
 
abc放到form2的public里吧
 
1.将procedure abc定义部分放在form2的public里
2。将procedure abc定义部分与form2的并级
type
procedure abc;
form2=class(tform)


end;
var

implement
procedure abc
begin
form2.memo1.lines.add('看见了!');
end;

end.
在form1调用时
TForm1.aaa1Click(Sender: TObject);
begin
form2.show;
abc;
end;
end.
此时为全局过程
 
接受答案了.
 
顶部