if assigned(formsearch1) then formsearch1.show else begin ormsearch1:=Tformsearch.create(Application); ormsearch1.show; end; 然后在 Tormsearch 的 OnActive中编写刷新代码,成了!
以上的codes可以吗? only show? 不可以吗? 可以吗? 不可以吗? ... .. .
用assigned函数来判断窗口是否存在。 if not Assigned(fmxxx) then fmxxx := Tfmxxx.Create(Self); fmxxx.Show; //下面写刷新的语句
formsearch1.show
else
begin
ormsearch1:=Tformsearch.create(Application);
ormsearch1.show;
end;
然后在 Tormsearch 的 OnActive中编写刷新代码,成了!
不可以吗?
可以吗?
不可以吗?
...
..
.
if not Assigned(fmxxx) then
fmxxx := Tfmxxx.Create(Self);
fmxxx.Show;
//下面写刷新的语句