Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c