Вопрос по 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 лучше для этого подходит.

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

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

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

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

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