> Установите на форме рисунок.

> Установите на форме рисунок.

> Сохраните файл формы под именем Result_x и подключите его к главному модулю проекта.

> Создайте программный код, который обрабатывает ответы при тестировании. Двойным щелчком мыши на команде меню главной формы «Результаты» вызовите код модуля Mainform и в место, где мигает курсор, введите с клавиатуры текст программы (в нижеприведенном тексте отмечен жирным шрифтом).

Окончательный программный код модуля Mainform

unit Mainform;

interface

uses

SysUtils, WinTypes, KinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Menus, About_x, Instr_x, Test_X, Result_x;

type

Tform1=class(TForm) MainMenu1: TMainMenu;

N1: TMenuItem; N2: TMenuItem; M3: TMenuItem;

N4: TMenuItem; N5: TMenuItem; N6: TMenuItem;

N7: TMenuItem; N8: TMenuItem;

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N4Click. ( Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations ) public

{ Public declarations } end;

var Form1: Tform1;

implementation

($R *. DFM}

procedure Tform1. N5Click(Sender: TObject);

begin

TestDlg. ShowModal;

end;

procedure Tform1. N6Click(Sender: TObject);

var ball: byte;

begin

ball: =0;

if TestDlg. RadioGroup1. ItemIndex=1 then ball: =ball+l;

if TestDlg. RadioGroup2. Itemlndex=0 then ball: =ball+l;

if TestSlg. RadioGroup3. Itemlndex=1 then ball: =bal1+1;

if Testing. RadioGroup4. Itemlndex=0 then ball: =ball+l;

if TestDlg. RadioGroup5. ItemIndex=0 then ball: =ball+l;

ResultDIg. Label1. Caption: ='Ваш результат: ' +IntToStr (Ball);

ResultDlg. ShowModal;

end;

procedure Tform1. N4Click (Sender: Tobject);

begin

AboutBox. ShowModal;

end;

⇐ Предыдущая 1 2 3 4 5 678 9 10 Следующая ⇒