Если это не мешает общему ходу программы, то одно из самых простых решений -
использование рабочего стола (Desktop) как родительское окно. Для этого
необходимо перекрыть CreateParams подчиненного окна следующим образом:
...
private
procedure
CreateParams(var
Params: TCreateParams); override
;
...
procedure
TForm2.CreateParams(var
Params: TCreateParams);
begin
inherited
CreateParams(Params);
Params.WndParent := GetDesktopWindow;
end
;
|
