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

Вопрос по TabControl   Найти похожие ветки 

← →
dabreezy   (2006-02-01 09:19) [0]

Добрый день, Мастера 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:26) [1]

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

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

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

---

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

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

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

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

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

---

← →
ЮЮ ©   (2006-02-01 09:42) [3]

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


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


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

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

---

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

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



Память: 0.45 MB
Время: 0.03 c