FormShow mit CoolTrayIcon dauert zu lange

[Matze]

Und das hier:

Delphi-Quellcode:

case ComboBox1.Itemindex of
  3: Image9.Visible := False;
  7: Image9.Visible := False;
  21: Image9.Visible := False;
  22: Image9.Visible := False;
  24: Image9.Visible := False;
  25: Image9.Visible := False;
end;

lässt sich bsp. auch vereinfachen:

Delphi-Quellcode:

case ComboBox1.Itemindex of
  3, 7, 21, 22, 24, 25: Image9.Visible := False;
end;

Falls du wissen möchtest, wieso das mit dem Boolean-Vergleich so ist, kannst du dir das mal ansehen: Über den Umgang mit Boolean.

Edit: Achja, benenne deine Komponenten doch mal vernünftig. Du verstehst deinen Code so nämlich nur in Verbindung mit dem Formular.

Das liest sich beispielsweise sehr schlecht:

Delphi-Quellcode:

if ShowDate1.Checked=True then
begin
Label10.Visible:=True;
Label10.Caption:=FormatDateTime('dddd, d. mmmm yyyy', date);
end else Label10.Visible:=False;

Man kann erahnen, was du machst, aber viel lesbarer ist sowas, da du alleine anhand des Codes sagen kannst, was genau in der GUI passiert:

Delphi-Quellcode:

if ChkBoxShowDate.Checked then
begin
  LblDate.Visible := true;
  LblDate.Caption := FormatDateTime('dddd, d. mmmm yyyy', date);
end else
  LblDate.Visible := false;

Grüße, Matze