Es hat gekappt mit diese Code:
Delphi-Quellcode:
procedure HideForms;
begin
Form2.Hide;
Form1.Hide;
// Form2.Timer1.Enabled:=true; // geht auch genauso
Application.Run; {habe ich nachträglich hinzugefügt, da das Programm wieder beim Starten einen Fehler verursacht und musste beendet werden}
end;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
if Paramstr(1) = 'nebenuhrbinich' then HideForms
else Form1.Caption:=Paramstr(1);
Application.Run;
end.
Das lag also wie @
SirThornberry vermutet hat
Mit dem Timer klappt auch jetzt, nachdem ich den seine Interwahl erhöht habe