Z
zhengv
Unregistered / Unconfirmed
GUEST, unregistred user!
在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.
不能运行!如何改动?
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.
不能运行!如何改动?