28.11.2016, 11:55
|
Прохожий
|
|
Регистрация: 28.11.2016
Сообщения: 4
Версия Delphi: delphi 7
Репутация: 10
|
|
Помогите пожалуста! Скажите в чем ошибка
Код:
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;
MAD: пользуемся тегами
|