Цитата:
Сообщение от krtoshl
вот ета
then cbb2.ItemIndex:=2 and cbb3.ItemIndex:=3 and cbb4.ItemIndex:=1 else
|
ага, а еше составной оператор делается с помощью begin..end.
т.е. код должен быть такой:
Код:
procedure TForm6.cbb1Change(Sender: TObject);
begin
if cbb1.ItemIndex=1
then
begin
cbb2.ItemIndex:=2;
cbb3.ItemIndex:=3;
cbb4.ItemIndex:=1;
end
else ShowMessage('Виберіть книгу');
end;