Необходимо, чтобы дочерняя форма не активизировала родительское окно

 Previous  Top  Next

    
 

 

 

Сделайте родительским окном рабочий стол.

Code:

procedure TForm2.CreateParams(VAR Params: TCreateParams);

begin

Inherited CreateParams(Params);

Params.WndParent := GetDesktopWindow;

end;

 

 

©Drkb::00440