用showwindow函数显示窗体，不能显示按钮，且无法关闭，为什么？？？(200分)

教父 · 2000-11-09

有意思，呵，我等会儿试试看。

教父 · 2000-11-09

有意思，呵，我等会儿试试看。

BaKuBaKu · 2000-11-09

我把那边的问题搞定了，可是这个问题还得想办法！ <a href="DispQ.asp?LID=386017">二次运行的问题？</a>

ZHC · 2000-11-10

希望有人能够从delphi的源码的深度，分析产生问题的原因，如果实在 不行，我只能用lml的递归显示所有controls的方法了，毕竟有方法 总比束手无策要好。 另外我还有两个问题： 1：lml的解决方法中，有一条是在form2的OnActivate事件中调用 form.show,但是在实际使用中发现，只用form2第一次显示时 系统才调用该事件，   以后我关闭了该窗口（但并不释放它），再重新显示它时， 系统就不再调用该事件了，这是为什么。 2：在我的程序中，form2的formstyle属性设为fsStayOnTop，程序运行时 根据需要，form2不断地hide，然后再重新show，运行一段时间以后 form2就会显示到其他窗口的后面去，好像fsStayOnTop这个属性 不翼而飞了，我只有在调用form2.show之前先调用 SetWindowPos(form2.handle,HWND_TOPMOST,0,0,0,0,swp_nomove or swp_nosize); 才能解决问题，这是为什么，难道fsStayOnTop属性真的会不翼而飞么？ 我的系统是delphi3.0+Ewin95OS2 BTW,为了发出以上文字，我花了一个小时时间，光联上大富翁就花了30分钟时间， 结果写了一半时系统又崩溃了，重新启动机子，重新上网，重新写，真是气人。 强烈要求，提高大富翁的响应速度。

lml · 2000-11-10

我也不希望我的答案被接受，分数是次要的，关键是找到问题的真正答案和 学到一点真的东西--比如BaKuBaKu兄分析二次调用问题的过程，但是那个结 果仅仅能的给这个问题一点启发，因为目前面对的不再是一个Application， 而是一个窗口。 希望BaKuBaKu再接再厉，如果真能解决，我也愿意出100分奖励啊--为了这 两个问题！

BaKuBaKu · 2000-11-13

说来好笑！这样就可以了。不论嵌套多少层控件。 procedure TForm1.Button1Click(Sender: TObject); begin   ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE);   Form2.Visible := True; end;

BaKuBaKu · 2000-11-13

这个问题的确需要从源码级解答。 TControl 有一个私有的 SetVisible 方法和 Visible 属性。 private   FVisible: Boolean;   procedure SetVisible(Value: Boolean); public // 公共属性   property Visible: Boolean read FVisible write SetVisible stored IsVisibleStored default True;   ... end; procedure TControl.SetVisible(Value: Boolean); begin   if FVisible <> Value then   begin     VisibleChanging; // TCustomForm 重载该方法，防止改变 MDI Child 的 Visible，但是与本题无关     FVisible := Value;     Perform(CM_VISIBLECHANGED, Ord(Value), 0); // 关键是这句话     RequestAlign;   end; end; 但是 TCustomForm 又重写了 SetVisible 方法和 Visible 属性，注意是重写不是重载： private   procedure SetVisible(Value: Boolean); protected // 保护属性   property Visible write SetVisible default False;   ... end; procedure TCustomForm.SetVisible(Value: Boolean); begin   if fsCreating in FFormState then     if Value then       Include(FFormState, fsVisible) else       Exclude(FFormState, fsVisible)   else   begin     if Value and (Visible <> Value) then SetWindowToMonitor;     inherited Visible := Value; // 我们只关心这句话   end; end;   象这样的写法我还是第一次看见，不是重载虚函数，而是重写，不知道 Object Pascal 的 语法为什么允许这样的写法。但是先不管它。   我们设置 Form.Visible ，其实首先调用的是 TCustomForm.SetVisible ，在这里，     inherited Visible := Value; 产生对 TControl.SetVisible 的调用，然后 Perform(CM_VISIBLECHANGED, Ord(Value), 0); 发出 CM_VISIBLECHANGED 消息，但是这个消息不是被 TControl.CMVisibleChanged 方法得到，   procedure CMVisibleChanged(var Message: TMessage); message CM_VISIBLECHANGED; 因为 TWinControl 截获了它， procedure TWinControl.CMVisibleChanged(var Message: TMessage); begin   if not FVisible and (Parent <> nil) then RemoveFocus(False);   if not (csDesigning in ComponentState) or     (csNoDesignVisible in ControlStyle) then UpdateControlState; // 这里产生了对子控件的遍历刷新 end; procedure TWinControl.UpdateControlState; var   Control: TWinControl; begin   Control := Self;   while Control.Parent <> nil do   begin     Control := Control.Parent;     if not Control.Showing then Exit;   end;   // 上面的代码是找到本控件的最上级父亲，赋给 Control 变量   if (Control is TCustomForm) or (Control.FParentWindow <> 0) then UpdateShowing; ; end; procedure TWinControl.UpdateShowing; var   ShowControl: Boolean;   I: Integer; begin   ShowControl := (FVisible or (csDesigning in ComponentState) and     not (csNoDesignVisible in ControlStyle)) and     not (csReadingState in ControlState);   if ShowControl then // 如果需要显示   begin     if FHandle = 0 then CreateHandle;     if FWinControls <> nil then       for I := 0 to FWinControls.Count - 1 do // 遍历控件的所有直接儿子并刷新，注意这里类似递归，其实不是递归         TWinControl(FWinControls).UpdateShowing;   end;   if FHandle <> 0 then     if FShowing <> ShowControl then     begin       FShowing := ShowControl;       try         Perform(CM_SHOWINGCHANGED, 0, 0); // 通过发送 CM_SHOWINGCHANGED 消息刷新控件       except         FShowing := not ShowControl;         raise;       end;     end; end; procedure TWinControl.CMShowingChanged(var Message: TMessage); const   ShowFlags: array[Boolean] of Word = (     SWP_NOSIZE + SWP_NOMOVE + SWP_NOZORDER + SWP_NOACTIVATE + SWP_HIDEWINDOW,     SWP_NOSIZE + SWP_NOMOVE + SWP_NOZORDER + SWP_NOACTIVATE + SWP_SHOWWINDOW); begin   SetWindowPos(FHandle, 0, 0, 0, 0, 0, ShowFlags[FShowing]); // 真正显示各个控件 end;   由于在处理 CM_VISIBLECHANGED 消息的时候需要判断 FVisible ，如果 FVisible = False 将不会继续处理，但是 FVisible 是 TControl 的私有变量，我想了一下，也没有别的方法 直接存取 FVisible ，所以提出了上面的办法，仍然通过 Visible 属性去设置它，好处就是 不会闪烁。

BaKuBaKu · 2000-11-13

ZHC 大侠的精神令我非常感动。   我现在在教育网，速度比较快，而且不花钱，因此能经常来看一看，如果上网条件象 ZHC 大侠一样， 我有点怀疑我能否坚持下来。所以我觉得我的劳动是值得的，同别人分享知识是一件很快乐的事情， 希望下次能再有机会和各位朋友讨论问题。                                                                   From: BaKuBaKu

阿蒙 · 2000-11-13

我觉的 form 没有击活它上面的控件也就只是 show 了出来。也没有击活 如果每个按纽都击活了，哪还不如 form.active

ZHC · 2000-11-29

非常感谢有这么多朋友来回答我的问题，最近一段时间我对我的电脑进行了升级， 所以很长时间没有登陆大富翁，在这里表示歉意。

用showwindow函数显示窗体，不能显示按钮，且无法关闭，为什么？？？(200分)

教父

Unregistered / Unconfirmed

教父

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

ZHC

Unregistered / Unconfirmed

lml

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

阿蒙

Unregistered / Unconfirmed

ZHC

Unregistered / Unconfirmed

Similar threads