窗体置顶的问题

cnrealm

母窗体有一个编辑控件TRichEdit，母窗体的FormStyle=fsStayOnTop，现在新加开一个子窗体（不是多文档窗体），要求这个窗体的始终在浮在母窗体之上，并且还不能是模式窗体。实际上就是类似在编辑窗体上打开TFindDialog窗体的效果。在C#中用下面代码就可实现:
Form dlgFind = new Form();
AddOwnedForm(dlgFind);
dlgFind.Show();
但不知在CBC中如何实现。

zhongshuan

自己搜索一下浮动窗体的代码就知道了，实际上置顶窗体可以多种方法，不过多数不是绝对的

remancehu

设置form的formstyle为fsStayOnTop可以的！！

cnrealm

“设置form的formstyle为fsStayOnTop可以的！！”

这种方法不行，默认form启动后，窗体是浮在母窗体之上，一旦form失去焦点或母窗体再获得焦点后后form就沉到母窗体之后了。

cooler42

重载Form的虚拟函数CreateParams，改变TCreateParams的成员WndParent  

class  TForm2  :  public  TForm  
{  
__published:        //  IDE-managed  Components  
private:            //  User  declarations  
protected:  
       virtual  void  __fastcall  CreateParams(TCreateParams  &  Param);  
public:             //  User  declarations  
       __fastcall  TForm2(TComponent*  Owner);  
};  

void  __fastcall  TForm2::CreateParams(TCreateParams  &  Param)  
{  
       //调用基类的函数  
       TForm::CreateParams(Param);  
       Param.ExStyle    |=  WS_EX_TOPMOST;   
       Param.WndParent  =  GetDesktopWindow();   
}

绿草清清

mark

cnrealm

to:cooler42
这个方法还是不行，其效果与TForm2->formstyle=fsStayOnTop相同，当母窗体为活动窗体时，子窗体还是不能浮在上面。
因为母窗体本身就是formstyle=fsStayOnTop

shadowangel

帮顶

光明之行者

强烈鄙视母窗体与子窗体都是FormStyle=fsStayOnTop,影响其它软件的使用.干脆你自己开发个操作系统只运行你编写的程序得了.

cnrealm

TO：光明之行者
你知道我要写的是什么吗？