5,930
社区成员
发帖
与我相关
我的任务
分享如何在show窗口时只show出一个？
是这样的，当在form里找打开其他form时，我在点菜单时使用了：
form:=tform.Create(self);
form.show
这样一个窗口就打开了，但是但再次运行时又打开了一个同样的窗口，我要怎么做才能在已打开这个窗口后再运行时不再打开新的窗口而是让焦点放到这个已运行的窗口上？
form:=tform.Create(self);
form.show
这样一个窗口就打开了，但是但再次运行时又打开了一个同样的窗口，我要怎么做才能在已打开这个窗口后再运行时不再打开新的窗口而是让焦点放到这个已运行的窗口上？
...全文
请发表友善的回复…
发表回复
zhhahuatian 2002-07-15
- 打赏
- 举报
up
coolmer 2002-07-15
- 打赏
- 举报
if not nill(form) then
form.show
else
begin
form:=tform.Create(self);
form.show
end;
form.show
else
begin
form:=tform.Create(self);
form.show
end;
tonny123 2002-07-15
- 打赏
- 举报
同意 up楼上的。
yansea 2002-07-15
- 打赏
- 举报
if not assigned(form2) then
begin
form2:=tform2.Create(self);
form2.show
end; //这样没有问题，但是在form的close要写
action := acfree; //窗体释放；
destory里要写
form2 := nil;//让它在内存中消失
begin
form2:=tform2.Create(self);
form2.show
end; //这样没有问题，但是在form的close要写
action := acfree; //窗体释放；
destory里要写
form2 := nil;//让它在内存中消失
yansea 2002-07-15
- 打赏
- 举报
if not assigned(form2) then
begin
form2:=tform2.Create(self);
form2.show
end; //这样没有问题，但是在form的close要写
action := acfree; //窗体释放；
destory里要写
form2 := nil;//让它在内存中消失
begin
form2:=tform2.Create(self);
form2.show
end; //这样没有问题，但是在form的close要写
action := acfree; //窗体释放；
destory里要写
form2 := nil;//让它在内存中消失
lyfzjl 2002-07-15
- 打赏
- 举报
最好用模式窗口，就是form.showmodel.
johnsonrao 2002-07-15
- 打赏
- 举报
form.ShowModal;
cqbonny 2002-07-15
- 打赏
- 举报
设置一个标志把
树_皮 2002-07-15
- 打赏
- 举报
if not assigned(form) then
begin
form:=tform.Create(self);
form.show
end
else
exit;
begin
form:=tform.Create(self);
form.show
end
else
exit;
很土 2002-07-15
- 打赏
- 举报
假设主窗口为 Form1, 子窗口为 Form2，则有：
if not Assigned(Form2) then
Form2 := TForm2.Create(Self);
Form2.Show;
BringWindowToTop(Form2.Handle); // 放到最前面来
试试？
if not Assigned(Form2) then
Form2 := TForm2.Create(Self);
Form2.Show;
BringWindowToTop(Form2.Handle); // 放到最前面来
试试？
