Конструкция with...do

← →
Chizh © (2004-09-13 15:39) [0]

Люди, подскажите пожалуйста, почему после исполнения этого кода:
with TabSheet1, TabSheet2, TabSheet3 do TabVisible:=False;
...невидимой становиться только последняя страница(TabSheet3). Почему не работает? Как исправить? Спасибо за внимание.

← →
VMcL © (2004-09-13 15:40) [1]

>>Chizh © (13.09.04 15:39)

Delphi Help | Index > "with".

← →
Rem (2004-09-13 15:40) [2]

TabSheet1.TabVisible:=False; TabSheet2.TabVisible:=False; TabSheet3.TabVisible:=False;

Читайте учебник по Object Pascal.

← →
Ega23 © (2004-09-13 15:44) [3]

Гы...
for i:=0 to ControlCount-1 do if (Controls[i] is TTabsheet) then TTabSheet(Controls[i]).TabVisible:=False;

← →
Chizh © (2004-09-13 16:03) [4]

2 Rem: Удивить хотели?
2 Ega23: Неплохой вариант, я попробую, спасибо.
2 All: А ещё есть варианты?

← →
Digitman © (2004-09-13 16:07) [5]

> 2 All: А ещё есть варианты?

а какие еще могут быть варианты, если TTabSheet есть элемент списка ? И всегда был оным ?

← →
miwa © (2004-09-13 17:19) [6]

Chizh © (13.09.04 16:03) [4]
2 Rem: Удивить хотели?
Подозреваю, что помочь.

← →
miwa © (2004-09-13 17:19) [7]

Chizh © (13.09.04 16:03) [4]
2 Rem: Удивить хотели?
Подозреваю, что помочь.

← →
Rem (2004-09-13 17:26) [8]

[4]
Не поверите: Просто помочь...

2 Rem: Извините, не хотел обидеть, просто я наоборот хотел уйти от записи, которую вы предложили, но всё равно спасибо...

2 Digitman: А что такое элемент списка, и как это относится к моей проблеме? Извините за глупый вопрос.

Имеется в виду что: одно присваивание - один объект, и никак иначе.

Большое спасибо! Всё, я думаю тему можно закрыть...

Конструкция with...do Найти похожие ветки