Реферат: Разработка программы психотестирования

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.N4Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

aboutbox.show

end;

procedure TForm1.N2Click(Sender: TObject);

begin

if opendialog1.Execute then memo1.Lines.LoadFromFile(opendialog1.filename)

end;

procedure TForm1.N3Click(Sender: TObject);

begin

if savedialog1.Execute then memo1.Lines.SaveToFile(savedialog1.filename)

end;

end.

unit Unit2;

{Модуль, описывающий окно “О программе”}

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls;

type

TAboutBox = class(TForm)

Panel1: TPanel;