Zitat von
SirThornberry:
es wird nicht das zum hauptformular was als erstes erzeugt wird sondern das erste was mit Application.CreateForm erzeugt wird. Wenn du das Fenster manuell mit TDeinDebugFenster.Create erzeugst sollte es nicht zum Mainform werden.
Ahh. Sprich ich könnt in MainForm.Create das DebugForm.Create ausführn und es ausm Hauptquelltext mit Application.CreateForm rausnehmen?
Das werd ich gleich ma ausprobiern...
Es geht nicht.
Mein MainForm.Create
Delphi-Quellcode:
procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.CreateForm(TDebugForm, DebugForm);
DebugForm.Hide;
Show;
If ParamStr(1) = '-debug' then
DebugForm.Show
Else
DebugForm.Hide;
//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;
Mein Quelltext
Delphi-Quellcode:
begin
Application.Initialize;
Application.Title := 'LPT-Steuerung';
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TInfoForm, InfoForm);
Application.CreateForm(TOptionenForm, OptionenForm);
//Application.CreateForm(TDebugForm, DebugForm);
Application.Run;
end.
Das Debug-Fenster wird immernoch angezeigt
