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.
procedure abc
begin
form2.memo1.lines.add('看见了!');
end;
如何在form1中直接调用?
TForm1.aaa1Click(Sender: TObject);
begin
form2.show;
form2.abc;
end;
end.