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]

← →
Тимоха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
но лучше через иф

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

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

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

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

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

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

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

--
Regards, LVT.

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