Für jedes CaseLabel der ComboBox die gleiche Aktion

[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