Реферат: Создание теста в Delphi

procedure TFormTest.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Formmain.Edit1.Clear;

Formmain.Edit2.Clear;

Formmain.ComboSex.ItemIndex:=-1;

Formmain.ComboAge.ItemIndex:=-1;

formmain.Show;

end;

procedure TFormTest.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if nomer<188 then

if messagedlg('Прекратить тестирование?',mtcustom,[mbyes,mbno],0)=mrno then

canclose:=false;

end;

procedure TFormTest.BFinishClick(Sender: TObject);

begin

close;

end;

procedure TFormTest.FormHide(Sender: TObject);

begin

memo1.Lines.LoadFromFile('memo\main.txt');

RadioGroup1.Visible:=false;

end;

end.

ТЮМЕНСКИЙ ГОСУДАРСВЕННЫЙ КОЛЛЕДЖ СВЯЗИ,

ИНФОРМАТИКИ И УПРАВЛЕНИЯ

РАЗРАБОТКА ПРИЛОЖЕНИЯ «МЕТОДИКА МНОГОФАКТОРНОГО ИССЛЕДОВАНИЯ ЛИЧНОСТИ Р. КЕТТЕЛЛА»

Курсовой проект

Тюмень 2003