|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите пожалуста! Скажите в чем ошибка
Код:
procedure TForm6.cbb1Change(Sender: TObject); begin if cbb1.ItemIndex=1 then cbb2.ItemIndex:=2 and cbb3.ItemIndex:=3 and cbb4.ItemIndex:=1 else ShowMessage('Виберіть книгу'); end; |