Розробка програми-додатку Психологічний тест (стр. 3 из 3)

begin

Application. CreateForm(TFDopomoga, F);

F. ShowModal;

F. Free;

end;

procedure TFTest.ToolButton3Click(Sender: TObject); \ виведення інформації допомога з інструментальної програми на модальну форму Про програму

var F: TFAbout;

begin

Application. CreateForm(TFAbout, F);

F. ShowModal;

F. Free;

end;

procedure TFTest.FormClose(Sender: TObject; var Action: TCloseAction); \ процедура для завершення програми

begin

Application.Terminate;

end;

end.

Вигляд форм програми додатку

Головна форма (Zastavka)

Форма тест ( FTest )

Модальна форма Про програму (FAbout)

Модальна форма Допомога (FDopomoga)

Модальна форма Індивідуальний тип (Induvid)

Модальна форма Колективний тип ( Kolekt )

Модальна форма Прагматичний тип ( Pragmat)

Перелік використаної літератури

1. Петро Дарахвелідзе «Програмування в Delphi7», Санкт-Петербург 2003.

2. Я. М. Глинський «Алгоритмізація і програмування», Львів 2001.

3. М. А. Парижский «Delphi в примерах»