RadioGroup

← →
Пантелеев Иван (2005-08-20 22:36) [0]

Не хочет компилироваться код:
procedure TForm1.RadioGroup1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0: Form1.Image1.Proportional := False; Form1.Image1.Stretch := False; 1: Form1.Image1.Proportional := True; Form1.Image1.Stretch := False; 2: Form1.Image1.Stretch := True; Form1.Image1.Proportional := False; end;

Причина скорее всего в том что нельзя 2 действия задавать - да?
как правильно сделать?

← →
Alexander Panov © (2005-08-20 22:44) [1]

Оператор должен быть обрамлен begin..end;

← →
TUser © (2005-08-20 22:44) [2]

case ... of
0: begin ... end;
1: begin ... end;
else: begin ... end;
end;

← →
Пантелеев Иван (2005-08-20 23:07) [3]

А можно полностью показать, а то я так не очень понимаю

← →
Пантелеев Иван (2005-08-20 23:15) [4]

Всё получилось - всем спасибо!

← →
Eraser © (2005-08-20 23:26) [5]

0: Form1.Image1.Proportional := False;
Form1.Image1.Stretch := False;
1: Form1.Image1.Proportional := True;
Form1.Image1.Stretch := False;
2: Form1.Image1.Stretch := True;
Form1.Image1.Proportional := False;

здесь "Form1." можно убрать.

RadioGroup Найти похожие ветки