═σΓΦΣΦ∞εσ εΩφε ∩≡ΦδεµσφΦ .

╩αΩ ±Ω≡√≥ⁿ ⌠ε≡∞≤ ∩≡Φ ±≥α≡≥σ ∩≡ΦδεµσφΦ ?

╩ ±εµαδσφΦ■ ∩≡Φ ±ετΣαφΦΦ εΩφα ∩≡ΦδεµσφΦ φΦ Γ εΣφε∞ Φτ ∩σ≡Γ√⌡ ±εß√≥ΦΘ (OnCreate, OnShow, OnActivate) φσ≥ Σε±≥≤∩α Ω ±ΓεΘ±≥Γ≤ Visible. ╚±∩εδⁿτεΓαφΦσ ⌠≤φΩ÷ΦΦ ShowWindow ± ∩α≡α∞σ≥≡ε∞ SW_HIDE Γ OnActivate-±εß√≥ΦΦ ≡σ°ασ≥ ∩≡εßδσ∞≤ (φε ∩≡Φ ²≥ε∞ φσ Φτßσµα≥ⁿ Ω≡α≥ΩεΓ≡σ∞σφφεπε ∞σ≡÷αφΦ εΩφα ∩σ≡σΣ "Φ±≈στφεΓσφΦσ∞"):

procedure TForm1.OnActivate(Sender: TObject);
begin
  ShowWindow(Handle, SW_HIDE);
end;

≈≥εß√ ±Σσδα≥ⁿ εΩφε ε∩ ≥ⁿ ΓΦΣΦ∞√∞ φσεß⌡εΣΦ∞ε Γ√τΓα≥ⁿ ≥≤ µσ ⌠≤φΩ÷Φ■, φε ≤µσ ± Σ≡≤πΦ∞ ∩α≡α∞σ≥≡ε∞:

  ShowWindow(Handle, SW_SHOW);

┼±δΦ ┬α∞ δσφⁿ ∩εδⁿτεΓα≥ⁿ API-⌠≤φΩ÷ΦΦ ΦδΦ φσ∩≡Φ ≥φε ΓΦΣσ≥ⁿ ∞σ≡÷αφΦσ, ≥ε σ±≥ⁿ Σ≡≤πεΘ, Γσ±ⁿ∞α Φφ≥σ≡σ±φ√Θ ±∩ε±εß ±εΩ≡√≥ⁿ εΩφε ∩≡ΦδεµσφΦ ε≥ δ■ßε∩√≥±≥Γ≤■∙Φ⌡ πδατ:

procedure TForm1.OnCreate(Sender: TObject);
begin
  Left := Screen.Width;
end;

╬Ωφε ±ετΣασ≥± ΓΦΣΦ∞√∞, φε φα⌡εΣΦ≥± τα ∩≡σΣσδα∞Φ ²Ω≡αφα!

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