Показать сообщение отдельно
  #2  
Старый 22.11.2009, 20:45
Kapitoshka438 Kapitoshka438 вне форума
Начинающий
 
Регистрация: 09.11.2009
Сообщения: 145
Репутация: 238
По умолчанию

Код:
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;
Ответить с цитированием