我是用
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;
来创建一个窗体的。我下次再点一下这个按扭他还是创建了。
我的目的我下次点击他不在创建了,把他搞成当前的窗体,就
可以了。
谢谢!!!!
解决方案 »
- 关于报表中日期显示的问题
- 用fastreport作为数据库编辑界面这种办法可行吗?
- RichEdit如何插入表格?
- 為什麼Printer.Canvas.TextOut(151,350,DBImage1)這樣的語句有錯,請高手指點,在線等,分不夠再加,謝謝!!
- 视频文件存入数据合适吗
- 去他奶奶的,老子不管了,我自己做的软件凭什么没有我的名字,我决定加自己的名字上去了。
- 陕西的朋友进来看看啦~~
- delphi有没有一个透明容器,我想在里面装上十几个LABEL,用来做成在窗体上从下到上的滚动字幕,或有没有好的办法实现滚动字幕?
- 你见过这么奇怪的问题吗!!急!!
- 怎么屏蔽maskedit的错误提示。显示自己的对话框
- 传入参数是一个记录(record),必须用记录指针吗?
- 树刷新--热心朋友帮忙看看!
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类