Panel

[DeddyH]

, die selbe Idee hatte ich auch gerade:

Delphi-Quellcode:

procedure TfrmMain.ComboBox1Change(Sender: TObject);
var i: integer;
begin
  for i := 0 to ComboBox1.Items.Count - 1 do
    (ComboBox1.Items.Objects[i] as TPanel).Visible := i = ComboBox1.ItemIndex;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.AddObject('Blume',Panel1);
  ComboBox1.Items.AddObject('Tiger',Panel2);
  ComboBox1.Items.AddObject('Pinkelpott',Panel3);
  ComboBox1.ItemIndex := 0;
  ComboBox1Change(Sender);
end;