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