Вопрос 2 (Форма 4 ): Использование Combobox
Процедуры аналогичны предыдущей форме
var
n:integer;
procedure TForm4.FormCreate(Sender: TObject);
begin
Label6.Caption:='2';
n:=30;
end;
procedure TForm4.Time1Timer(Sender: TObject);
begin
n:=n-1;
MessageDlg('Время закончилось', mtConfirmation,[mbOk],0);
Button4.Caption:='Далее';
end;
Проверка на соответствие правильному ответу из выпадающего списка с выдачей соответствующего сообщения
procedure TForm4.Button4Click(Sender: TObject);
begin
begin
if combobox1.Text='1985' then
begin
MessageDlg('Вы ответили правильно', mtConfirmation,[mbOk],0);
Form5.Label5.Caption:=floattostr(strtofloat(form4.Label5.Caption)+1);
form4.Label5.Caption:=floattostr(strtofloat(form4.Label5.Caption)+1);
Button4.Caption:='Далее';
end
else
begin
MessageDlg('Вы ответили неправильно! Правильный - 1985', mtConfirmation,[mbOk],0);
Button4.Caption:='Далее';
Form5.Label5.Caption:=form4.Label5.Caption;
end
end;
begin
hide;
form5.show;
end;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
Application.Terminate
end;
Вопрос 3 (Форма 5 ): Использование одной из RadioButton
var
n:integer;
implementation
uses Unit4, Unit6;
Проверка на соответствие правильному ответу из отмеченной радио кнопки с выдачей соответствующего сообщения
procedure TForm5.Button4Click(Sender: TObject);
begin
begin
if RadioButton1.Checked=True then
begin
MessageDlg('Вы ответили правильно', mtConfirmation,[mbOk],0);
form6.Label6.Caption:=floattostr(strtofloat(form5.Label5.Caption)+1);
Form5.Label5.Caption:=floattostr(strtofloat(form5.Label5.Caption)+1);
Button4.Caption:='Далее';
end
else
begin
MessageDlg('Вы ответили неправильно! Правильный - 1993', mtConfirmation,[mbOk],0);
Button4.Caption:='Далее';
Form6.Label6.Caption:=form5.Label5.Caption;
end
end;
begin
hide;
form6.show;
end;
end;
procedure TForm5.Timer1Timer(Sender: TObject);
begin
n:=n-1;
MessageDlg('Время закончилось', mtConfirmation,[mbOk],0);
Button4.Caption:='Далее';
end;
Вопрос 4 (Форма 6 ): Использование одного из CheckBox
implementation
uses Unit5, Unit4, Unit7;
Проверка на соответствие правильному ответу из нескольких отмеченных независимых кнопок с выдачей соответствующего сообщения
procedure TForm6.Button4Click(Sender: TObject);
begin
begin
if (CheckBox1.Checked=True) and
(CheckBox2.Checked=False) and
(CheckBox3.Checked=True) and
(CheckBox4.Checked=True)
then
begin
MessageDlg('Вы ответили правильно', mtConfirmation,[mbOk],0);
Form7.Label7.Caption:=floattostr(strtofloat(form6.Label6.Caption)+1);
form6.Label6.Caption:=floattostr(strtofloat(form6.Label6.Caption)+1);
Button4.Caption:='Далее';
end
else
begin
MessageDlg('Вы ответили неправильно! Правильныe - 1,3,4', mtConfirmation,[mbOk],0);
Button4.Caption:='Далее';
end
end; begin
hide;
form7.show;
end;
end;