Für jedes CaseLabel der ComboBox die gleiche Aktion

[bonsaikatze]

egal welcher index ausgewählt wird es soll immer das passieren:

Delphi-Quellcode:

case ComboBox1.ItemIndex of
 0: begin// diese Aktion soll bei 0 und jedem anderen Case ausgelöst werden
Nr := ComboBox1.ItemIndex;
Panel1.Caption := x.Strings[Nr];
Panel2.Caption := y.Strings[Nr];
end;

[mkinzler]

Dann kannst du ja auf das Case-Konstrukt komplett verzichten

[marabu]

Guten Morgen.

Ich würde nur den Sonderfall behandeln:

Delphi-Quellcode:

begin
  // ...
  with ComboBox1 do
  if ItemIndex >= 0 then
  begin
    Panel1.Caption := x[ItemIndex];
    Panel2.Caption := y[ItemIndex];
  end;
  // ...
end;

Grüße vom marabu