╩αΩ "τα±≥ΓαΓΦ≥ⁿ" ⌠ε≡∞≤δ ≡ φσ ≡ατΓε≡α≈ΦΓα≥ⁿ± Φτ ΦΩεφΩΦ?

─δ ²≥επε φσεß⌡εΣΦ∞ε ∩σ≡σ⌡Γα≥Φ≥ⁿ ±εεß∙σφΦσ "WM_QUERYOPEN". ─δ ²≥επε φσεß⌡εΣΦ∞ε εß· ΓΦ≥ⁿ ±εε≥Γσ≥±≥Γ≤■∙≤■ ∩≡ε÷σΣ≤≡≤ Γ private-εßδα±≥Φ.


{ εß· ΓδσφΦσ ∩≡ε÷σΣ≤≡√ Γ Ωδα±±σ TMainForm }
procedure WMQueryOpen(var Msg: TWMQueryOpen); message WM_QUERYOPEN;


{ ... Φ σσ ≡σαδΦτα÷Φ  }
procedure TMainForm.WMQueryOpen(var Msg: TWMQueryOpen);
begin
  Msg.Result := 0;
end;

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