我按一个按钮A 会弹出一个窗体b,当我再按按钮A的时候他还是会弹出窗体b,这样就出现了2个窗体b了,我怎么控制让他只出现一个窗体b(也就是说当窗体b存在的时候,不会再出现窗体b)
请问怎么去控制呢
请问怎么去控制呢
解决方案 »
- 有关SQL语句有效性检查问题
- 这个错误是什么原因
- 关于VCLskin的问题,请高手帮忙
- 在DBgrid窗口中输入数据,如何判断输入数据是否重复?
- 怎样把Excel的数据导入SQL数据表(在客户机上操作)
- 用Raize如何做出XP样式的菜单?
- 为什么三层结构中,我在客户端运行出现 no server available?
- 需要修改*.db这种数据表,需要如何做?也就是说添加哪些东东?
- 一个奇怪的问题
- 哪位高手会使Developer Express Inc 的ExpressQuantumGrid Suite控件。请指教!!
- 自定义组件的重新安装问题!!
- dephi中checkbox的选中代码错误,请帮忙查看错在哪?
Application.CreateForm(TForm2, Form2);
Form2.Show;
Form2.BrintToFront;
只是写错了一个单词
最后一句应该是 Form2.BringToFront还有个问题,点击窗体右上角那个关闭按钮,就结束程序,是哪个事件(onclose?),代码是怎么样的?
FORM2为按钮A按下时弹出的窗口procedure TForm1.AClick(Sender:Object);
var
hw:HWND;
begin
hw=FindWindow(nil,'Form2');
if hw>0 then
beign
//已经运行一个实例
end;
end;
if not Assigned(Form2) then
Form2:=TForm2.Create(Application);
Form2.Show;