Создание теста в Delphi

Категория реферата: Рефераты по информатике, программированию
Теги реферата: решебник по физике, реферат значение
Добавил(а) на сайт: Dovmont.

Formmain.hide; formtest.Show; end; end;

procedure TFormmain.Button2Click(Sender: TObject); begin close; end;

procedure TFormmain.FormCloseQuery(Sender: TObject; var CanClose:
Boolean); begin if messagedlg('Вы действительно хотите выйти?',mtcustom,[mbyes,mbno],0)=mrno then canclose:=false; end;

end.

unit ftest;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,

Dialogs, ExtCtrls, StdCtrls, Spin, ComCtrls;

type

TFormTest = class(TForm) buttonnext: TButton;

Memo1: TMemo;

RadioGroup1: TRadioGroup;

Label1: TLabel;

Label3: TLabel;

BFinish: TButton; procedure buttonnextClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure buttonPreviosClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure BFinishClick(Sender: TObject); procedure FormHide(Sender: TObject); procedure FormDblClick(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var

FormTest: TFormTest; nomer:Byte; {номер вопроса} a,b,c,d,e,f,g,h,i,l,m,n,o,q1,q2,q3,q4:byte;{Факторы} aa,bb,cc,dd,ee,ff,gg,hh,ii,ll,mm,nn,oo,qq1,qq2,qq34:byte;{Стены} implementation

uses fmain;

{$R *.dfm}

{Очистка формы} procedure clear; begin

FormTest.Memo1.Lines.Clear;

FormTest.RadioGroup1.Items.Clear; end;

Поделитесь этой записью или добавьте в закладки