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;