我是用
procedure Tmain_window.SpeedButton2Click(Sender: TObject);
begin
mer_window:=Tmer_window.Create(self);
end;
来创建一个窗体的。我下次再点一下这个按扭他还是创建了。
我的目的我下次点击他不在创建了,把他搞成当前的窗体,就
可以了。
谢谢!!!!

解决方案 »

  1.   

    if mer_window <> nil then
      mer_window := Tmer_window.Create(self);————————————————————————————————————
    宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
    ————————————————————————————————————
      

  2.   

    try
    if not assigned(form1) then
      form1:=Tform1.create(nil);
      form1.showmodal;
    finally
      freeandnil(form1);
    end;
      

  3.   

    if assigned(form_lb) then
    form_lb.show else
    form_lb:=tform_lb.Create(Application);
      

  4.   


    搜索TinyXML,一个XMLParser类