Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Combobox и все что в нем, Траблы с combobox 
:(
    Опции темы
opop
Дата 25.3.2009, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Вобщем надеюсь найдется кто-нибудь кто сможет помочь ламеру по делфИ))

Существует Combobox1 его надо заполнить, что в нем нахоходилось 12 знаков зодиака.
И что бы при воборе конкретного знака появлялась инфа о данном знаке.
Ребят мб кто поможет)) как это лучше сделать ?
Вроде инфа в combobox забита, а при запуске проги сам combobox пустой О_0 вобщем кому не трудно объясните плиз
PM MAIL   Вверх
Frees
Дата 25.3.2009, 15:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 16
Всего: 54
Itemindex = 0 поставь


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
opop
Дата 25.3.2009, 15:24 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Поставил не помоголо. А элементы в комбобокс забивать как combobox1.text:='Овен' или как итем забивать ? combobox1.items ??
PM MAIL   Вверх
Frees
Дата 25.3.2009, 15:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 16
Всего: 54
Код

  with ComboBox1 do
  begin
    Items.Clear;
    Items.Add(#1054#1042#1077#1085);
    Items.Add(#1050#1086#1079#1077#1088#1086#1075);
    Items.Add(#1061#1088#1077#1085#1086#1074' '#1087#1088#1086#1075#1088#1072#1084#1084#1080#1089#1090);
    Items.Add(#1053#1077' '#1079#1085#1072#1077#1090' '#1082#1072#1082' '#1087#1080#1089#1072#1090#1100' '#1087#1088#1086#1075#1080);
    ItemIndex := 0;
  end;



--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Dmi3ev
Дата 25.3.2009, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 41
Цитата

Вроде инфа в combobox забита, а при запуске проги сам combobox пустой О_0 вобщем кому не трудно объясните плиз 

вот именно что вроде  smile 
opop, тебе лучше всего 
1) открыть у ComboBox свойство Items и в нем написать свои знаки зодиака (на одной строке - один знак зодиака)
2) посел того, как закончишь, нажать ок
3) запускай


--------------------
PM MAIL   Вверх
opop
Дата 25.3.2009, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Dmi3ev @ 25.3.2009,  15:39)
Цитата

Вроде инфа в combobox забита, а при запуске проги сам combobox пустой О_0 вобщем кому не трудно объясните плиз 

вот именно что вроде  smile 
opop, тебе лучше всего 
1) открыть у ComboBox свойство Items и в нем написать свои знаки зодиака (на одной строке - один знак зодиака)
2) посел того, как закончишь, нажать ок
3) запускай

Мммм Пасиб все получилось))))  Щас надо сделать чтоб привыборе компонента из бокса был переход на инфу как эт удобнее сделать ?) еси не сложно подскажите плиз
PM MAIL   Вверх
Данкинг
Дата 25.3.2009, 15:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
Цитата(opop @  25.3.2009,  15:43 Найти цитируемый пост)
Щас надо сделать чтоб привыборе компонента из бокса был переход на инфу

Какую инфу? Куда переход?


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


Новичок



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

Репутация: нет
Всего: нет
Цитата(Данкинг @ 25.3.2009,  15:50)
Цитата(opop @  25.3.2009,  15:43 Найти цитируемый пост)
Щас надо сделать чтоб привыборе компонента из бокса был переход на инфу

Какую инфу? Куда переход?

Ну вот например при выборе в боксе Овен чтобы был переход на инфу об Овне. Дак вот куда это инфу запихнуть?? кучу форм создавать эт не вариант наверно)) сильно не смейтесь я в делфи 2 день копаюсь))
PM MAIL   Вверх
Dmi3ev
Дата 25.3.2009, 16:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 41
доработаешь сам, можно ваще с switch делать, тут просто суть:
Код

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if (ComboBox1.Text='Овен') then
  Memo1.Lines.LoadFromFile('D:\\Овен.txt')
else
  if (ComboBox1.Text='Телец') then
    Memo1.Lines.LoadFromFile('D:\\Телец.txt')
  else
    if (ComboBox1.Text='') then
      Memo1.Lines.Clear;
end;

end.

расположи Memo на форме, ComboBox, заполни его создай файлы на диске у меня вот например D:\\Телец.txt, забей туда текст, и сиди вдупляй, как это работает, поймешь с двумя, дальше будет все просто, будешь копипастить и все...
этот код надо писать на событие OnChange у ComboBox...
понятно?

Это сообщение отредактировал(а) Dmi3ev - 25.3.2009, 16:01


--------------------
PM MAIL   Вверх
opop
Дата 25.3.2009, 16:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Dmi3ev @ 25.3.2009,  16:00)
доработаешь сам, можно ваще с switch делать, тут просто суть:
Код

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if (ComboBox1.Text='Овен') then
  Memo1.Lines.LoadFromFile('D:\\Овен.txt')
else
  if (ComboBox1.Text='Телец') then
    Memo1.Lines.LoadFromFile('D:\\Телец.txt')
  else
    if (ComboBox1.Text='') then
      Memo1.Lines.Clear;
end;

end.

расположи Memo на форме, ComboBox, заполни его создай файлы на диске у меня вот например D:\\Телец.txt, забей туда текст, и сиди вдупляй, как это работает, поймешь с двумя, дальше будет все просто, будешь копипастить и все...
этот код надо писать на событие OnChange у ComboBox...
понятно?

Да в принципе все ясно.. Но тут возникло одно, но эту прогу надо будет не дома запускать, а значит loadfromfile не прокатит. Может как то по лабелям моно распихать?
PM MAIL   Вверх
Dmi3ev
Дата 25.3.2009, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 41
Те на диске D:\(или еще где) у тебя должны быть файлы со всеми знаками зодиака, а потом ты просто подгружать их будешь, когда значение в ComboBox меняться будет... И будет у тебя всего одна форма, один комбобокс, одно Мемо, и все...  smile 


Цитата

а значит loadfromfile не прокатит.

о боже
 smile 
ща
Код

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if (ComboBox1.Text='Овен') then
  Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'Овен.txt')
else
  if (ComboBox1.Text='Телец') then
    Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'Телец.txt')
  else
    if (ComboBox1.Text='') then
      Memo1.Lines.Clear;
end;

end.

надо положить все .тхт в папку, где лежит эзешник (где он при этом лежит не имеет значения)
Цитата

Может как то по лабелям моно распихать? 

может оно и можно, только это не есть круто, а мы стобой крутые программеры  smile 

Это сообщение отредактировал(а) Dmi3ev - 25.3.2009, 16:42


--------------------
PM MAIL   Вверх
opop
Дата 25.3.2009, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Все получилось )) спасиба за помощь)) последний вопрос т.к. на первой форме места мало очень то моно ведь memo на вторую положить и чтобы тот прост на нее ссылался ?)))
PM MAIL   Вверх
Dmi3ev
Дата 25.3.2009, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 41
Код

т.к. на первой форме места мало очень то моно ведь memo на вторую положить и чтобы тот прост на нее ссылался ?))) 

можно все... главное, чтобы тебе и пользователям было удобно, а так фантазируй, тут это не принципиально...


--------------------
PM MAIL   Вверх
opop
Дата 25.3.2009, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Dmi3ev @ 25.3.2009,  16:35)
Код

т.к. на первой форме места мало очень то моно ведь memo на вторую положить и чтобы тот прост на нее ссылался ?))) 

можно все... главное, чтобы тебе и пользователям было удобно, а так фантазируй, тут это не принципиально...

Лан пасиба башое)) Ты практически спас меня))
PM MAIL   Вверх
Данкинг
Дата 25.3.2009, 17:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


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

Репутация: 11
Всего: 130
Цитата(opop @  25.3.2009,  16:31 Найти цитируемый пост)
последний вопрос т.к. на первой форме места мало очень то моно ведь memo на вторую положить и чтобы тот прост на нее ссылался ?))) 

Только вторую форму в USES... первой прописать не забудь.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

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


 




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


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

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