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

case + pagecontrol, ordinal type required   Найти похожие ветки 

← →
Тимоха111   (2010-12-27 16:52) [0]

есть pagecontrol, и несколько вкладок к нему, оператором case хочу сделать простое условие

case PageControl1.ActivePage of
 tsWelcome:
 lbl1.caption := "welcome";
 tsStep1:
 lbl1.caption := "step1";
end;
Компилятор ругается мол, тип должен быть не такой.
case PageControl1.ActivePageIndex of
0:
..
1:

такая конструкция меня не устраивает, хочу обращаться непосредственно к табу, не зная индекса

Как решить?

---

← →
Palladin ©   (2010-12-27 16:53) [1]

if

---

← →
Тимоха111   (2010-12-27 16:54) [2]

можно сделать и так
if PageControl1.ActivePage = tsWelcome then
begin
...
end;
if PageControl1.ActivePage = tsStep1 then
begin
...
end;
Но хотелось бы через case, так менее громозко :)

---

← →
Тимоха111   (2010-12-27 16:55) [3]

Palladin, без if никак?

---

← →
Сергей М. ©   (2010-12-27 16:59) [4]

> Тимоха111


Варианты выбора, фигурирующие в case-блоке, должны иметь ordinal-тип и быть известными уже на этапе компиляции.

---

← →
Anatoly Podgoretsky ©   (2010-12-27 17:04) [5]

> Тимоха111  (27.12.2010 16:54:02)  [2]

Ленивым нет места в программирование.

---

← →
Дмитрий С ©   (2010-12-27 17:14) [6]

PageControl1.ActivePageIndex
но лучше через иф

---

← →
RWolf ©   (2010-12-27 17:15) [7]

> Anatoly Podgoretsky ©   (27.12.10 17:04) [5]

это не лень, а чувство прекрасного.


> Тимоха111   (27.12.10 16:54) [2]

Можно присвоить каждой странице своё значение свойства Tag, и подставить это свойство в case.

---

← →
Leonid Troyanovsky ©   (2010-12-27 23:08) [8]

> RWolf ©   (27.12.10 17:15) [7]

> Можно присвоить каждой странице своё значение свойства Tag,
>  и подставить это свойство в case.

Здесь чувство изменяет прекрасному.

--
Regards, LVT.

---

Страницы: 1 вся ветка

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



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