[Ztrel]

Я так чувствую, что скоро всех с этим Combobox достану...
У меня есть еще вопросик...
Как написать такое условие (пишу не кодом, а словами, просто не могу в коде представить (( ):

Если в форме № 6 в combobox выбрана строка и эта строка = ' Бууууу ' тогда
Перейди на форму № 9
иначе
Если в форме № 6 в combobox выбрана строка и эта строка = ' Бууууу1 ' тогда
Перейди на форму № 7

конец.

Не могу найти такого свойства в Combobox. Что мне делать - подскажите!!! Пожалуйста... *делаю умоляющие, слезящиеся глаза*

P.S. - Заранее всем спасибо!

[Kapitoshka438]

Код:

var
  ComboBox: TComboBox;
  Text: string;
begin
  ComboBox := Form6.ComboBox;
  if ComboBox.ItemIndex >= 0 then
  begin
    Text := ComboBox.Items[ComboBox.ItemIndex];
    if Text = ' Бууууу ' then
      Form9.Show
    else if Text = ' Бууууу1 ' then
      Form7.Show;
  end;
end;

[Yurk@]

ну зачем же так усложнять:

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text= ' Бууууу '
  then Form9.Show
  else if ComboBox1.Text= ' Бууууу1 '
          then Form7.Show;
end;

[Kapitoshka438]

Точно, че-то я сложновато написал, с ListBox перепутал.

[Ztrel]

Спасибо всем! Помогло )