Реферат: Разработка программы психотестирования
unit Mainfrm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, ExtCtrls, TestTypes;
type
TfrmMain = class(TForm)
Image1: TImage;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Image2: TImage;
SpeedButton3: TSpeedButton;
procedure runtest;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
end;
var
frmMain: TfrmMain;
testcount:integer;
implementation
uses Testfrm;
{$R *.DFM}
procedure tfrmmain.runtest;
var f:file of ttest;