ComboBox и PageControl
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
ComboBox и PageControl - 2009-09-05 02:23:33.923333
|
|
|
GiENA[HeaDS!]
Сообщений: 47
Оценки: 0
Присоединился: 2009-06-09 09:22:13.606666
|
Начал учить delphi…появился трабл
добавляю на форму ComboBox (с 2 строками "Катя" и "Вика") и PageControl с 2 страницами
немогу понять как сделать чтобы при выборе например "Катя" в ComboBox показывалась 1 страничка в PageControl а при выборе "Вика" вторая
подскажите код плз
з.ы. мб и сё просто…но я пока непонял =)
|
|
|
|
|
RE: ComboBox и PageControl - 2009-09-05 02:38:18.880000
|
|
|
NEFFboy
Сообщений: 204
Оценки: 0
Присоединился: 2007-03-18 11:11:02.040000
|
я так решил:
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
if comboBox1.Text = 'Вика' then
PageControl1.ActivePage := TabSheet1; //если Вику выбрали, то страницу 1 показываем
if comboBox1.Text = 'Катя' then
PageControl1.ActivePage := TabSheet2; //если Катю выбрали, то страницу 2 показываем
end;
|
|
|
|
|
RE: ComboBox и PageControl - 2009-09-05 02:40:24.716666
|
|
|
GiENA[HeaDS!]
Сообщений: 47
Оценки: 0
Присоединился: 2009-06-09 09:22:13.606666
|
хм…в статье пишется что ComboBox равен ListBox только в моём случае нужно манипулировать Items…есть идеи? =)
|
|
|
|
|
RE: ComboBox и PageControl - 2009-09-05 02:51:50.006666
|
|
|
DenCoder
Сообщений: 49
Оценки: 0
Присоединился: 2009-07-07 19:45:30.303333
|
В ComboBox должен быть ItemIndex или что-то тому подобное. Я не стараюсь запоминать все особенности Delphi или Builder, но когда берусь за них - легко нахожу…
|
|
|
|
|
RE: ComboBox и PageControl - 2009-09-05 03:09:15.686666
|
|
|
DenCoder
Сообщений: 49
Оценки: 0
Присоединился: 2009-07-07 19:45:30.303333
|
Проще говоря, вот так попробуй:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then
PageControl1.TabIndex := 0
else
PageControl1.TabIndex := 1
end;
или со своими условиями, можно и вообще так PageControl1.TabIndex := ComboBox1.ItemIndex;
Только для PageControl тебе нужен еще TabSheet, как минимум…
|
|
|
|
|
|
