[manione]

вообщем задание такое:
Организовать динамическое изменение нескольких свойств (размеры, шрифт, цвет заливки) объекта Panel с заголовком. Для ввода значений использовать списки ListBox и (или) ComboBox
Решил вот так вот:

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if listbox1.itemindex=0 then panel1.height:=300;
                             panel1.width:=300;
                             panel1.Font.Name:='ms pgothic';
                             panel1.Color:=clgreen;



if listbox1.itemindex=1 then panel1.height:=80;
                             panel1.width:=200;
                             panel1.Font.Name:='ms pmincho';
                             panel1.Color:=clpurple;


if listbox1.itemindex=2 then panel1.height:=200;
                             panel1.width:=150;
                             panel1.Font.Name:='ms sans serif';
                             panel1.Color:=clblack;

Админ: Пользуемся тегами при оформлении кода!

но почему то при нажатии на любую строку постоянно меняться будет только размер панели, а вот шрифт надписи и цвет остается таким же как при нажатии первый раз

Помогите пожалуйста,

[angvelem]

Нужно не забывать заключать код в операторные скобки.

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  case ListBox1.ItemIndex of 
    0 :
    begin
      Panel1.Height := 300;
      Panel1.Width := 300;
      Panel1.Font.Name := 'ms pgothic';
      Panel1.Color := clGreen;
    end;
    1 :
    begin
      Panel1.Height := 80;
      Panel1.Width := 200;
      Panel1.Font.Name := 'ms pmincho';
      Panel1.Color := clPurple;
    end;
    2 :
    begin
      Panel1.Height := 200;
      Panel1.Width := 150;
      Panel1.Font.Name := 'ms sans serif';
      Panel1.Color := clBlack;
    end;
  end;
end;