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

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

Вопрос по TabControl [D7, XP]

dabreezy ©   (2006-02-01 09:19:00) 

Добрый день, Мастера delphi.
Возник такой вопрос. Есть Tabcontrol на нем 2 таба. Если свойство чтобы при переключении табов содержимое изменялось. Просто писать такую процедуру мне кажется не правильно:

procedure TForm1.TabControl1Change(Sender: TObject);
begin
if tabcontrol1.TabIndex=1 then
 begin
   button1.Visible:=false;
   button2.Visible:=false;
 end
 else
 begin
   button1.Visible:=true;
   button2.Visible:=true;
 end;
end;


---

ЮЮ   (2006-02-01 09:42:00) [1]

> > Или стиль кода глаз режет?


> А это к чему? :)


 button1.Visible := tabcontrol1.TabIndex <> 1;
 button2.Visible := button1.Visible;

2 строки вместо 10

---

dabreezy   (2006-02-01 09:31:00) [2]

> Или стиль кода глаз режет?

А это к чему? :)

> ЮЮ ©   (01.02.06 09:26) [1]

Спасибо. TpageControl лучше для этого подходит.

---

ЮЮ   (2006-02-01 09:26:00) [3]

> Просто писать такую процедуру мне кажется не правильно

Хочешь, чтобы само менялось? Используй TPageControl, расположив  button1 и  button2 на разных TTabSheet-ах.

Или стиль кода глаз режет?

---

Наверх