| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

RadioGroup [D7, WinXP]

Пантелеев Иван ©   (2005-08-20 22:36:00) 

Не хочет компилироваться код:
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 действия задавать - да?
как правильно сделать?

---

Eraser   (2005-08-21 02:07:00) [1]

Германн ©   (21.08.05 02:04) [6]

Правильно - ну его!

Пантелеев Иван

Image1 тоже убирай )

---

Германн   (2005-08-21 02:04:00) [2]

2 Eraser ©   (20.08.05 23:26) [5]

А Image1 - нельзя?

---

Eraser   (2005-08-20 23:26:00) [3]

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-20 23:15:00) [4]

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

---

Пантелеев Иван   (2005-08-20 23:07:00) [5]

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

---

Alexander Panov   (2005-08-20 22:44:00) [6]

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

---

TUser   (2005-08-20 22:44:00) [7]

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

---

Наверх