Форум: "Начинающим";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];
Вниз
Вопрос по 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.041 c
