[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;

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

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

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