我在Form1中添加按钮，激发按钮事件，打开FORM2窗体

但是却出现了问题  代码如下
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Show;
//shellexecute(form1.Handle,'open',pchar('http://58.247.8.106/taobaike/Code.asp'),nil,nil,sw_shownormal);end;打开的却还是form1！

解决方案 »

  1.   

    查看一下你的form2的name对不对。
    不行的话就用application.createform()试试
      

  2.   

    uses列表里加入form2的单元名称
      

  3.   

    Form1本来不就显示了吗。要不然你怎么点击的Form1.Button2
    看得有点晕
      

  4.   

    //form1中的uses代码
    implementation
    uses
    unit2;//form2
    //button代码
    procedure TForm1.Button2Click(Sender: TObject); 
    begin 
    Form2.Show; 
    end; 
      

  5.   

    检查一下2个窗口的name属性？
      

  6.   

    代码没问题，检查form2的name写的是不是form2。
      

  7.   

    1:检查窗体名称有无错误.
    2:form1里有有没有uses form2
      

  8.   

    from1是不是设置成顶层，把from2挡住了
      

  9.   

    确实很晕...这个应该是一个手误...你把form2改了名看看
      

  10.   

    问题是解决了，最后的解决办法是先隐藏form1，再显示form2，这样form2就出来了。但是不明白为什么？想一求究竟！
      

  11.   

    那可能是这种情况了.不然就是你做了其他事情,焦点又回到了Form1,如果只是一句简单的Form2.Show不可能出现你说的情况
      

  12.   

    启动后把Form1最小化看看有没有Form2？
      

  13.   

    //form1中的uses代码 
    implementation 
    uses 
    unit2;//form2 
    //button代码 
    procedure TForm1.Button2Click(Sender: TObject); 
    begin 
    Form2.Show; 
    end; 
    ...
      

  14.   

    请问下那你不就是每次点击都会进入form2吗 
    怎么才能只让它出现一次呢