Вопрос 5 (Форма 7 ): Использование картинки Image
var
q:integer;
implementation
uses Unit8, Unit4;
Проверка правильности выбора картинки
procedure TForm7.Image2Click(Sender: TObject);
begin
Label1.Caption:='Вы выбрали первое контекстное меню';
q:=1;
end;
procedure TForm7.Image3Click(Sender: TObject);
begin
Label1.Caption:='Вы выбрали второе контекстное меню';
q:=2;
end;
procedure TForm7.Image1Click(Sender: TObject);
begin
Label1.Caption:='Вы выбрали третье контекстное меню';
q:=3;
end;
procedure TForm7.Button4Click(Sender: TObject);
begin
begin
if q=1
then
begin
MessageDlg('Вы ответили правильно', mtConfirmation,[mbOk],0);
Form8.Label7.Caption:=floattostr(strtofloat(form7.Label7.Caption)+1);
form7.Label7.Caption:=floattostr(strtofloat(form7.Label7.Caption)+1);
Button4.Caption:='Далее';
end
else
begin
MessageDlg('Вы ответили неправильно! Правильное первое контекстное меню', mtConfirmation,[mbOk],0);
Button4.Caption:='Далее';
Form8.Label7.Caption:=form7.Label7.Caption;
end
end;
begin
hide;
form8.show;
end;
end;
procedure TForm7.Timer1Timer(Sender: TObject);
begin
n:=n-1;
Label5.Caption:=inttostr(n)+' сек';
MessageDlg('Время закончилось', mtConfirmation,[mbOk],0);
Button4.Caption:='Далее';
end;
Вопрос 6 (Форма 8 ): Использование метода ручного вписывания значения
Проверка на соответствие ввода правильного значения ответа с выдачей соответствующего сообщения
procedure TForm8.Button4Click(Sender: TObject);
begin
begin
if Edit1.Text='-4'
then
begin
MessageDlg('Вы ответили правильно', mtConfirmation,[mbOk],0);
form8.Label7.Caption:=floattostr(strtofloat(form8.Label7.Caption)+1);
Button4.Caption:='Далее';
end
else
begin
MessageDlg('Вы ответили неправильно! Правильное первое контекстное меню', mtConfirmation,[mbOk],0);
Button4.Caption:='Далее';
Form8.Label7.Caption:=form8.Label7.Caption;
end
end;
begin
hide;
form2.show;
form2.Memo1.Visible:=true;
form2.Memo1.Lines.Add('Всего вопросов: 6') ;
form2.Memo1.Lines.Add('Количество правильных ответов:’ +form8.Label7.Caption);
Form2.memo1.Lines.add('Неверных ответов:'+inttostr(6-strtoint(form8.Label7.Caption)));
Form2.Button4.Visible:=true;
end;
end;
О программе (Форма 9 )
