7
77578790
Unregistered / Unconfirmed
GUEST, unregistred user!
如果点击一个button后动态产生一个窗体Form2,那么怎么防止多次点击button后重复创建窗体Form2?
procedure TFORM1.buttonclick(tobject;sender);
begin
application.createform(TForm2,Form2)
end;
procedure TFORM1.buttonclick(tobject;sender);
begin
application.createform(TForm2,Form2)
end;