Programm beenden

[daddy]

Um ein Formular während des Aufrufs abzubrechen, bevor es überhaupt erscheint, überschreibe ich immer den Konstruktor des Formulars.

Delphi-Quellcode:

Type 
  TMyForm = Class(TForm)
    ...
  public
    constructor Create(AOwner: TComponent); override;
    ...
  end;

implementation

constructor TMyForm.Create(AOwner: TComponent);
begin
  ... Abbruchprüfung ...
  if <Abbruchbedingung erfüllt> then Raise Exception.Create(<Fehlermeldung>);
  inherited;
  ...
end;

In der aufrufenden Prozedur muss die Exception dann per Try .. Except abgefangen werden, damit sie nicht nach außen dringt.

Gruß
Daddy