Общие вопросы

Code:

protected

procedure CreateParams(var Params: TCreateParams); override;

//...

procedure TForm.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams(Params);

if Assigned(Application.MainForm) then

begin

   Params.WndParent := GetDesktopWindow;

   Params.Style := WS_CHILD;

end;

end;