ComboBox

[Farmokolog]

Как осуществить, на форем находятся 3 панели, необходимо чтобы при выборе в списке ComboBox (1 элемент ) на форме появлялась панель 1 при этом не видно панели 2 и 3, при выборе (2 элемент) ComboBox, изчезали все панели и появлялась панель 2 ну и т д.

[wm_leviathan]

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
if ComboBox1.Text = 'panel 1' then begin
Panel1.Visible := true;
Panel2.Visible := false;
Panel3.Visible := false;
end;
if ComboBox1.Text = 'panel 2' then begin
Panel1.Visible := false;
Panel2.Visible := true;
Panel3.Visible := false;
end;

if ComboBox1.Text = 'panel 3' then begin
Panel1.Visible := false;
Panel2.Visible := false;
Panel3.Visible := true;
end;
end;

или я недопонял вопрос?

[Farmokolog]

Спасибо большое все правильно понял, все заработало я чето и не сообразил что так можно, я все делал через if then else и не получалось додумать))

[xexxex]

Так будет поэстетичней

with ComboBox1 do begin
  Panel1.Visible := ItemIndex = 0;
  Panel2.Visible := ItemIndex = 1;
  Panel3.Visible := ItemIndex = 2;
end;

[ArtGrek]

Сообщение от xexxex

Так будет поэстетичней

with ComboBox1 do begin
  Panel1.Visible := ItemIndex = 0;
  Panel2.Visible := ItemIndex = 1;
  Panel3.Visible := ItemIndex = 2;
end;

если откомпилица, то обязательно будет поэстетичней

case ComboBox1.ItemIndex of 
  0: begin
    Panel1.Visible := true;
    Panel2.Visible := false;
    Panel3.Visible := false;
  end;
  1: begin
    Panel1.Visible := false;
    Panel2.Visible := true;
    Panel3.Visible := false;
  end;
  2: begin
    Panel1.Visible := false;
    Panel2.Visible := false;
    Panel3.Visible := true;
  end;
end;