Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Проблемы с ComboBox, Visible должен меняться в зависимости от 
:(
    Опции темы
4eJIoBe4eK
Дата 21.4.2010, 20:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.2.2010

Репутация: нет
Всего: нет
Я пишу программу на конкурс, не могу сообразить как сделать? Мне нада чтобы при изменении значения ItemIndex изменялся параметр Visible на некоторых обьектах
PM MAIL   Вверх
chip_and_dayl
Дата 21.4.2010, 20:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: нет
Всего: 9
Так а в чем проблема? В событии комбобокса OnChange пишеш следующее:

Код

if ComboBox1.ItemIndex=0  then
begin
здесь что-то скрываем
end;
if ComboBox1.ItemIndex=1  then
begin
здесь что-то скрываем
end;



--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
DarkProg
Дата 21.4.2010, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: нет
Всего: 19
можно и по другому - тоже просто, но тут уже дело вкуса кому что нравится юзать

Код

case Combobox1.ItemIndex of
 0:begin{что-то скрываем/отображаем}end;
 1:begin{что-то скрываем/отображаем}end;
 2:begin{что-то скрываем/отображаем}end;
 3:begin{что-то скрываем/отображаем}end;
 .....
end; 


Это сообщение отредактировал(а) DarkProg - 21.4.2010, 20:49


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
4eJIoBe4eK
Дата 21.4.2010, 21:36 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.2.2010

Репутация: нет
Всего: нет
Не могли бы вы мне, светлые умы этого форума, сказать НА КАКУЮ ПРОЦЕДУРУ ЭТО НАДО КИДАТЬ???
PM MAIL   Вверх
chip_and_dayl
Дата 21.4.2010, 21:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: нет
Всего: 9
Жмем на ComboBox, потом в окне свойств обьекта жмешь на закладку Events, в нем есть событие onChange, два раза по нем, и туда ставишь код


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
4eJIoBe4eK
Дата 21.4.2010, 21:57 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.2.2010

Репутация: нет
Всего: нет
Цитата(chip_and_dayl @  21.4.2010,  21:46 Найти цитируемый пост)
Жмем на ComboBox, потом в окне свойств обьекта жмешь на закладку Events, в нем есть событие onChange, два раза по нем, и туда ставишь код

а, точно сори незаметил =))
PM MAIL   Вверх
4eJIoBe4eK
Дата 21.4.2010, 22:57 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.2.2010

Репутация: нет
Всего: нет
вапрос: а можно так?
Код

if ComboBox1.itemindex=0 then
                                                    ComboBox2.visible:=false;
                                                    ComboBox3.visible:=true;


или обязательно БЕГИН и ЕНД писать?
PM MAIL   Вверх
former
Дата 21.4.2010, 23:06 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: нет
Всего: 17
Цитата(4eJIoBe4eK @  21.4.2010,  20:05 Найти цитируемый пост)
Я пишу программу на конкурс, не могу сообразить как сделать?

Цитата(4eJIoBe4eK @  21.4.2010,  22:57 Найти цитируемый пост)
или обязательно БЕГИН и ЕНД писать? 

Блин, какой конкурс! Садись книжки читать. 


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
4eJIoBe4eK
Дата 21.4.2010, 23:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.2.2010

Репутация: нет
Всего: нет
Спасибо за помощ, тему на закрывайте, мне в пятницу сдавать работу, еще че-нить спрошу=)

Это сообщение отредактировал(а) 4eJIoBe4eK - 21.4.2010, 23:27
PM MAIL   Вверх
Данкинг
Дата 21.4.2010, 23:29 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(4eJIoBe4eK @  21.4.2010,  23:57 Найти цитируемый пост)
или обязательно БЕГИН и ЕНД писать? 

Тебе писать необязательно, тебе бы почитать сначала. smile По-моему, сам редактор подставляет и begin, и end. Или ты даже среду не запускал??


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
former
Дата 22.4.2010, 07:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: нет
Всего: 17
Цитата(Данкинг @  21.4.2010,  23:29 Найти цитируемый пост)
По-моему, сам редактор подставляет и begin, и end.

Смотря какая версия Delphi. Хотя, если что-нибудь вроде cnPack стоит, то и на ранних версиях будет все в автомате.
Цитата(4eJIoBe4eK @  21.4.2010,  23:23 Найти цитируемый пост)
Спасибо за помощ, тему на закрывайте, мне в пятницу сдавать работу, еще че-нить спрошу=)

Центр помощи


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
bems
Дата 22.4.2010, 08:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 0
Всего: 88
Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена! 


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Proxin
Дата 22.4.2010, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: нет
Всего: 3
вам не на конкурс нужно, вам основы языка паскаль и объектно-ориентированного программирования нужно изучать.
PM MAIL   Вверх
4eJIoBe4eK
Дата 22.4.2010, 23:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.2.2010

Репутация: нет
Всего: нет
нужна помощ, как сделать, чтобы после повторного появления, параметр ItemIndex на ComboBox обнулялся и писало название КОМБО БОКСА
вот код которым пользуюсь
Код

procedure TForm8.CTpaHaDJIuHHaOutChange(Sender: TObject);
begin
if CTpaHaDJIuHHaOut.ItemIndex=0 then
 begin
    DJIuHaOut1.visible:=true;
    DJIuHaOut2.visible:=false;
    DJIuHaOut3.visible:=false;
    DJIuHaOut4.visible:=false;
    DJIuHaOut5.visible:=false;
    DJIuHaOut6.visible:=false;
 end;
if CTpaHaDJIuHHaOut.ItemIndex=1 then
 begin
    DJIuHaOut1.visible:=false;
    DJIuHaOut2.visible:=true;
    DJIuHaOut3.visible:=false;
    DJIuHaOut4.visible:=false;
    DJIuHaOut5.visible:=false;
    DJIuHaOut6.visible:=false;
 end;
if CTpaHaDJIuHHaOut.ItemIndex=2 then
 begin
    DJIuHaOut1.visible:=false;
    DJIuHaOut2.visible:=false;
    DJIuHaOut3.visible:=true;
    DJIuHaOut4.visible:=false;
    DJIuHaOut5.visible:=false;
    DJIuHaOut6.visible:=false;
 end;
if CTpaHaDJIuHHaOut.ItemIndex=3 then
 begin
    DJIuHaOut1.visible:=false;
    DJIuHaOut2.visible:=false;
    DJIuHaOut3.visible:=false;
    DJIuHaOut4.visible:=true;
    DJIuHaOut5.visible:=false;
    DJIuHaOut6.visible:=false;
 end;
if CTpaHaDJIuHHaOut.ItemIndex=4 then
 begin
    DJIuHaOut1.visible:=false;
    DJIuHaOut2.visible:=false;
    DJIuHaOut3.visible:=false;
    DJIuHaOut4.visible:=false;
    DJIuHaOut5.visible:=true;
    DJIuHaOut6.visible:=false;
 end;
if CTpaHaDJIuHHaOut.ItemIndex=5 then
 begin
    DJIuHaOut1.visible:=false;
    DJIuHaOut2.visible:=false;
    DJIuHaOut3.visible:=false;
    DJIuHaOut4.visible:=false;
    DJIuHaOut5.visible:=false;
    DJIuHaOut6.visible:=true;
 end;
end;
PM MAIL   Вверх
4eJIoBe4eK
Дата 24.4.2010, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 25.2.2010

Репутация: нет
Всего: нет
 smile Можно вырубать тему! Я выграл 1-е место!!! smile 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0857 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.