setup2.pas

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

unit setup2;

interface

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

type
  Tsets2 = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    CD1: TColorDialog;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sets2: Tsets2;

implementation

uses main;

{$R *.DFM}

procedure Tsets2.FormCreate(Sender: TObject);
begin
sets2.Image1.Picture.LoadFromFile('back.bmp');
combobox1.Items:=screen.fonts;
end;

procedure Tsets2.SpeedButton2Click(Sender: TObject);
begin
seavtemain.RichEdit1.Enabled:=false;
seavtemain.SpeedButton16.Enabled:=false;//
seavtemain.Timer6.Enabled:=false;
close;
end;

procedure Tsets2.SpeedButton1Click(Sender: TObject);
begin
if edit1.text<>'' then
try
if strtoint(sets2.edit2.Text)>0 then
  begin
   seavtemain.label27.Caption:='学生:'+sets2.Edit1.Text;
   seavtemain.RichEdit1.Color:=sets2.Panel2.Color;
   seavtemain.RichEdit1.Font.Color:=sets2.Panel1.Color;
   seavtemain.RichEdit1.Font.Name:=sets2.ComboBox1.Text;
   if seavtemain.Edit4.Text=sets2.edit2.Text then seavtemain.Edit4.text:=inttostr(strtoint(sets2.edit2.Text)+1);
   seavtemain.Edit4.Text:=edit2.Text;
   seavtemain.Timer6.Enabled:=true;
   seavtemain.SpeedButton16.Enabled:=true;//
   seavtemain.SpeedButton11.Enabled:=true;
   seavtemain.RichEdit1.Enabled:=true;
   seavtemain.RichEdit1.SetFocus;
   close;
  end;
except
    showmessage('测试时间不能等于0,小于0或含有小数点!');
  end else showmessage('请您输入您的姓名!')
end;

procedure Tsets2.Panel1Click(Sender: TObject);
begin
if cd1.Execute then panel1.Color:=cd1.Color;
end;

procedure Tsets2.Panel2Click(Sender: TObject);
begin
if cd1.Execute then panel2.Color:=cd1.Color;
end;

end.