我是用
procedure Tmain_window.SpeedButton2Click(Sender: TObject);
begin
mer_window:=Tmer_window.Create(self);
end;
来创建一个窗体的。我下次再点一下这个按扭他还是创建了。
我的目的我下次点击他不在创建了,把他搞成当前的窗体,就
可以了。
谢谢!!!!
procedure Tmain_window.SpeedButton2Click(Sender: TObject);
begin
mer_window:=Tmer_window.Create(self);
end;
来创建一个窗体的。我下次再点一下这个按扭他还是创建了。
我的目的我下次点击他不在创建了,把他搞成当前的窗体,就
可以了。
谢谢!!!!
mer_window := Tmer_window.Create(self);————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
if not assigned(form1) then
form1:=Tform1.create(nil);
form1.showmodal;
finally
freeandnil(form1);
end;
form_lb.show else
form_lb:=tform_lb.Create(Application);
搜索TinyXML,一个XMLParser类