Form sticking problem

cnrealm

The parent form has an edit control TRichEdit, and the parent form's FormStyle = fsStayOnTop. Now a new child form (not a multi-document form) is opened. It is required that this form always floats on the parent form, and It cannot be a modal form. In fact, it is similar to the effect of opening the TFindDialog form on the edit form. This can be achieved in C # with the following code:
Form dlgFind = new Form ();
AddOwnedForm (dlgFind);
dlgFind.Show ();
But I don't know how to achieve it in CBC.

zhongshuan

Search for the code of the floating form by yourself. In fact, there are many ways to stick the form, but most of them are not absolute.

remancehu

Set the formstyle of the form to fsStayOnTop! !!

cnrealm

"It is possible to set the formstyle of the form to fsStayOnTop !!!"

This method does not work. After the default form is started, the form floats on the parent form. Once the form loses focus or the parent form regains focus, the form sinks behind the parent form.

cooler42

Overload Form's virtual function CreateParams, change the member of 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)
{
       // Call the function of the base class
       TForm :: CreateParams (Param);
       Param.ExStyle | = WS_EX_TOPMOST;
       Param.WndParent = GetDesktopWindow ();
}

绿草清清

mark

cnrealm

to:cooler42
This method still does not work, the effect is the same as TForm2-> formstyle = fsStayOnTop, when the parent form is the active form, the child form can not float on it.
Because the parent form itself is formstyle = fsStayOnTop

shadowangel

Bangding

光明之行者

Strongly despise that both the parent form and the child form are FormStyle = fsStayOnTop, which affects the use of other software. Simply develop your own operating system and only run the programs you write.

cnrealm

TO:光明之行者
Do you know what I want to write?