Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Combobox и все что в нем


Автор: opop 25.3.2009, 15:14
Вобщем надеюсь найдется кто-нибудь кто сможет помочь ламеру по делфИ))

Существует Combobox1 его надо заполнить, что в нем нахоходилось 12 знаков зодиака.
И что бы при воборе конкретного знака появлялась инфа о данном знаке.
Ребят мб кто поможет)) как это лучше сделать ?
Вроде инфа в combobox забита, а при запуске проги сам combobox пустой О_0 вобщем кому не трудно объясните плиз

Автор: Frees 25.3.2009, 15:17
Itemindex = 0 поставь

Автор: opop 25.3.2009, 15:24
Поставил не помоголо. А элементы в комбобокс забивать как combobox1.text:='Овен' или как итем забивать ? combobox1.items ??

Автор: Frees 25.3.2009, 15:29
Код

  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;

Автор: Dmi3ev 25.3.2009, 15:39
Цитата

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

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

Автор: opop 25.3.2009, 15:43
Цитата(Dmi3ev @ 25.3.2009,  15:39)
Цитата

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

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

Мммм Пасиб все получилось))))  Щас надо сделать чтоб привыборе компонента из бокса был переход на инфу как эт удобнее сделать ?) еси не сложно подскажите плиз

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

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

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

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

Ну вот например при выборе в боксе Овен чтобы был переход на инфу об Овне. Дак вот куда это инфу запихнуть?? кучу форм создавать эт не вариант наверно)) сильно не смейтесь я в делфи 2 день копаюсь))

Автор: 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...
понятно?

Автор: opop 25.3.2009, 16:07
Цитата(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 не прокатит. Может как то по лабелям моно распихать?

Автор: Dmi3ev 25.3.2009, 16:09
Те на диске 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 

Автор: opop 25.3.2009, 16:31
Все получилось )) спасиба за помощь)) последний вопрос т.к. на первой форме места мало очень то моно ведь memo на вторую положить и чтобы тот прост на нее ссылался ?)))

Автор: Dmi3ev 25.3.2009, 16:35
Код

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

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

Автор: opop 25.3.2009, 16:39
Цитата(Dmi3ev @ 25.3.2009,  16:35)
Код

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

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

Лан пасиба башое)) Ты практически спас меня))

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

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)