
19.10.2009, 21:02
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Код:
Case RadioGroup1.ItemIndex Of
0 : Panel1.Width := 10;
1 : Panel1.Width := 100;
2 : Panel1.Width := 1000;
Else ShowMessage('Дурак, что-ли?');
End;
|