Zur Laufzeit erstellte Form nur einmal öffnen

[sakura]

Okay. Den Teil habe ich wohl übersehen Dann ändere Dein Hauptform wie folgt:

Delphi-Quellcode:

type 
  THauptForm = class(TForm) 
    ... 
  private 
    FOnOffForm: TForm;
    procedure OnOffFormClose(Sender: TObject; var Action: TCloseAction); 
    ... 
  public 
    ... 
    procedure ShowOnOffForm; 
    ... 
  end; 

procedure THauptForm.ShowOnOffForm; 
begin 
  if FOnOffForm = nil then 
  begin
    FOnOffForm := TOnOffForm.Create(Application);
    FOnOffForm.OnClose := OnOffFormClose;
  end;
  FOnOffForm.Show; 
  FOnOffForm.BringToFront; 
end;

procedure THauptForm.OnOffFormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  // Das Form nur verstecken (Daten bleiben erhalten) 
  Action := caHide; 

  // BEZIEHUNGSWEISE

  // Das Form zerstören (Daten bleiben nicht erhalten) 
  Action := caFree; 
  FOnOffForm := nil; 
end;

.....