setup.pas

用DELPHI编写的一个打字软件,想的朋友快点下啊,带源吗

unit setup;

interface

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

type
  Tsets = class(TForm)
    Image1: TImage;
    Edit2: TEdit;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sets: Tsets;

implementation

uses main;

{$R *.DFM}

procedure Tsets.SpeedButton1Click(Sender: TObject);
begin
if edit1.text<>'' then
try
if strtoint(sets.edit2.Text)>0 then
  begin
   seavtemain.edit2.Text:='';
   seavtemain.myidea(Sender);
   seavtemain.label6.Caption:='学生:'+sets.Edit1.Text;
   if seavtemain.Edit3.Text=sets.edit2.Text then seavtemain.Edit3.text:=inttostr(strtoint(sets.edit2.Text)+1);
   seavtemain.edit3.text:=sets.edit2.Text;
   seavtemain.Timer2.Enabled:=true;
   seavtemain.Edit2.Enabled:=true;
   seavtemain.SpeedButton5.Enabled:=true;//
   seavtemain.Label26.Caption:='您的目标:'+sets.ComboBox1.Text+'个/分钟';
   close;
   seavtemain.Edit2.SetFocus;
  end;
except
    showmessage('测试时间不能等于0,小于0或含有小数点!');
  end else showmessage('请您输入您的姓名!')
end;


procedure Tsets.SpeedButton2Click(Sender: TObject);
begin
seavtemain.Edit2.Enabled:=false;
seavtemain.SpeedButton5.Enabled:=false;
close;
end;

procedure Tsets.FormCreate(Sender: TObject);
begin
image1.Picture.LoadFromFile('back.bmp');
end;

end.