Wie bastel ich ordentlich ein Debug-Fenster

[Qnkel]

Moin.

Ich hab ein Programm. Da habe ich mir eine neue Form gebastelt mit nem Memo, wo ich Debug-Meldungen reinschreibe.

So, wenn MainFormCreate abläuft, werden Treiber geladen etc. was darin protokolliert werden soll. Also muss die DebugForm vor der MainForm erstellt werden, weil ja sonst die MainForm noch nicht in der DebugForm mit dem DebugMemo arbeiten kann.

Problem: Nun wird natürlich zuerst die DebugForm angezeigt.

Habe versucht das mit sowas zu unterbinden:

Delphi-Quellcode:

procedure TDebugForm.FormCreate(Sender: TObject);
begin
  If ParamStr(1) = '-debug' then
    Show
  Else
    Hide;
end;

Funktioniert leider net. Warum? Keine Ahnung. Sagt es mir

Wie kann ich das sonst noch machn? Gibt es da inen Standard oder so?

So sieht meine MainFormCreate aus:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Show;
  //Port definieren
  Port := str2int('378', True);
  DebugForm.DebugMemo.Lines.Add('Port gesetzt auf: 378');
  DebugForm.DebugMemo.Lines.Add('- - -');
  //Treiber starten
  if ZLIOStarted then
    begin
      Statusbar.Panels[0].Text := 'Treiber gestartet !';
      DebugForm.DebugMemo.Lines.Add('Treiber erfolgreich gestartet !');
      DebugForm.DebugMemo.Lines.Add('- - -');
    end
  else
    begin
      Statusbar.Panels[0].Text := 'Fehler bei Treiber!';
      DebugForm.DebugMemo.Lines.Add('Fehler! Treiber nicht gestartet.');
      DebugForm.DebugMemo.Lines.Add('- - -');
    end;
  Portread;
end;