如何解决FORM一失去焦点就不见了的问题?

我用如下语句建立的FORM  
   
  if   form1=nil   then   begin  
      form1   :=   tform1.create(nil);    
      form1.show;  
  end      
  else   begin  
  showwindow(form1.handle,sw_restore);  
  form1.setfocus;  
  end;  
   
  可是当鼠标一离开此FORM1后,FORM1就不见了,如何解决?谢谢!  
  此进formstyle:normal,visible:false  
   
  问题点数：50、回复次数：7Top

1 楼wanghome（王鸿）回复于 2005-09-12 10:13:35 得分 10

active，  
  同时可以置顶啊Top

2 楼xixuemao（钱不是问题，问题是没钱）回复于 2005-09-12 10:16:13 得分 10

不知楼主想实现什么？没明白意思！  
   
  设置form的formstyle属性为stayontop试试呢？Top

3 楼jsmicrofox（）回复于 2005-09-12 10:35:33 得分 0

可是当鼠标一离开此FORM1后,FORM1就不见了,如何解决?谢谢!  
  此时formstyle:normal,visible:false  
  ------------------------  
   
  设置FORM的FS为stayontop,当启动其他FORM时会出问题,所以不想用FORM的STAYONTOP  
   
  不知有什么方法吗  
   
  Top

4 楼hhzqf1980（hh）回复于 2005-09-12 10:48:13 得分 15

if   form1=nil   then   begin  
      form1   :=   tform1.create(nil);    
      form1.showmodal;  
  end      
  else   begin  
  showwindow(form1.handle,sw_restore);  
  form1.setfocus;  
  end;  
  Top

5 楼foxyy8888（C4 E3 CC AB D3 D0 B2 C5 C1 CB A3 A1）回复于 2005-09-12 11:49:06 得分 15

form1.showmodal;  
  正解  
  Top

6 楼czx0514（不想再做那份工作）回复于 2005-09-12 12:06:36 得分 0

upTop

7 楼jsmicrofox（）回复于 2005-09-12 12:34:45 得分 0

是这样的,可能是我没有说清楚:  
   
  我的主窗口的左面是一个树形的OUTLOOKBAR,点上面的按钮,则显示表单,如FORM1,  
   
  if   form1=nil   then   begin  
      form1   :=   tform1.create(nil);    
      form1.show;  
  end      
  else   begin  
  showwindow(form1.handle,sw_restore);  
  form1.setfocus;  
  end;  
  --------------这段代码就是按钮里的.---------  
  程序运行正常,但是当我的鼠标一离开FORM1表单,则FORM1就不见了.理想的运行应是:再打开一个新的表单时,FORM1才消失,而不是鼠标一离开就消失.  
   
  请高手指点.Top

相关问题

• 鼠标
• 解决
• form1
• beginshowwindow
• stayontop
• formstyle
• 表单
• nil
• setfocus
• tform1

• 帖主：jsmicrofox
• wanghome
• xixuemao
• hhzqf1980
• foxyy8888

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载