Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.04 c
15-1138632090
Din
2006-01-30 17:41
2006.02.19
Как сделать чтобы Интернет Эксплороер не выкачивал флеш-ролики?


2-1138370764
Glex
2006-01-27 17:06
2006.02.19
Помогите решить задачу. Проблема чисто техническая.


15-1138561521
example
2006-01-29 22:05
2006.02.19
Опрос


8-1126147717
dm37
2005-09-08 06:48
2006.02.19
Вывод формы на второй экран монитора?


2-1138892839
dera
2006-02-02 18:07
2006.02.19
Как в символьном поле с помощь Local SQL найти значение *ВАН*?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский