菜鸟问题 怎样防止用户多次点击菜单生成多个窗体(20分)

  • 主题发起人 主题发起人 cgdlin
  • 开始时间 开始时间
C

cgdlin

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样防止用户多次点击菜单生成多个窗体
 
方法多种多样。
 
简单的用assigned()判断一下
 
if form1<>nil then
showmessage('窗体已生成')
else
form1:=TForm1.create(Application);
form1.show;
 
if not assigned(form1) then
//--create form
begin
form1:=Tform1.create(application);
form1.show;
end
else exit;
 
点击时判断,如果已经生成了新的窗口,就不允许再生成新的窗口了。
 
用Showmodal,每次只准生成一个窗口.
 
多人接受答案了。
 
干脆让菜单点击一次后Enable:=False;
 

Similar threads

D
回复
0
查看
848
DelphiTeacher的专栏
D
D
回复
0
查看
858
DelphiTeacher的专栏
D
D
回复
0
查看
687
DelphiTeacher的专栏
D
后退
顶部