Тема: RadioGroup
Показать сообщение отдельно
  #2  
Старый 19.10.2009, 21:02
lmikle lmikle вне форума
Модератор
 
Регистрация: 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;
Ответить с цитированием