╩αΩ Γ√Γσ±≥Φ εΩφε ∩σ≡σΣ Σ≡≤πΦ∞Φ εΩφα∞Φ φσ Γ√ΓεΣ  φαΓσ≡⌡ ≡εΣΦ≥σδⁿ±Ωεσ εΩφε?

┼±δΦ ²≥ε φσ ∞σ°ασ≥ εß∙σ∞≤ ⌡εΣ≤ ∩≡επ≡α∞∞√, ≥ε εΣφε Φτ ±α∞√⌡ ∩≡ε±≥√⌡ ≡σ°σφΦΘ - Φ±∩εδⁿτεΓαφΦσ ≡αßε≈σπε ±≥εδα (Desktop) ΩαΩ ≡εΣΦ≥σδⁿ±Ωεσ εΩφε. ─δ  ²≥επε φσεß⌡εΣΦ∞ε ∩σ≡σΩ≡√≥ⁿ CreateParams ∩εΣ≈Φφσφφεπε εΩφα ±δσΣ≤■∙Φ∞ εß≡ατε∞: 

...

private
  procedure CreateParams(var Params: TCreateParams); override;

...

procedure TForm2.CreateParams(var Params: TCreateParams);

begin
  inherited CreateParams(Params);
  Params.WndParent := GetDesktopWindow;
end;




╤εΓσ≥√ φα≈Φφα■∙Φ∞