窗体问题!(21分)

  • 主题发起人 主题发起人 听月人
  • 开始时间 开始时间

听月人

Unregistered / Unconfirmed
GUEST, unregistred user!
两个窗体a,b
在a中用
if f_base=nil then
begin
f_base:=TF_BASE.Create(self);
f_base.Parent:=RzPanel1.Parent;
end;
将b显示出来,最小化后不知去向,怎么处理??
 

if SearchManageFrm = nil then
begin
Application.CreateForm(Tf_base, f_base);
f_base.ShowModal;
f_base.Free ;
f_base:=nil;
end;
如果窗体是MDI窗体:
begin
if not assigned( f_base) then
application.CreateForm(tf_base,form)
else
f_base.Show;

 
由于b的Parent不是主窗体,因此最小化后,主窗体或SCREEN不会显示标题条。

有两个办法解决:
一 使用一个按钮,在按钮的ONCLICK中: f_base.SHOW;
二 将f_base的Parent指定为主窗体或application.
 
后退
顶部