Текущий архив: 2005.10.02;
Скачать: CL | DM;
Вниз
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." можно убрать.
← →
Германн © (2005-08-21 02:04) [6]2 Eraser © (20.08.05 23:26) [5]
А Image1 - нельзя?
← →
Eraser © (2005-08-21 02:07) [7]Германн © (21.08.05 02:04) [6]
Правильно - ну его!
Пантелеев Иван
Image1 тоже убирай )
Страницы: 1 вся ветка
Текущий архив: 2005.10.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c
