main.pas

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

                t:=60;
                seavtemain.Memo1.Lines.LoadFromFile('seavte01.txt');
                seavtemain.label23.Caption:='一级简码';
                showmessage('现在进行一级简码测试,请设置测试时间!');
                seavtemain.myidea(Sender);
              end else
    else
    begin
      c:=1;
      showmessage('现在进行一级简码测试,请设置测试时间!');
      memo1.Lines.LoadFromFile('seavte01.txt');
      label23.Caption:='一级简码';
      seavtemain.myidea(Sender);
    end;
end;

procedure Tseavtemain.SpeedButton10Click(Sender: TObject);
begin
if timer2.Enabled=true then
   if Application.MessageBox(
        '确实要退出这次测试,并接着进行"综合测试"测试吗?',
        '确认',MB_YESNO + MB_DEFBUTTON1+MB_iconquestion)=idYES
        then  begin
                c:=0;
                seavtemain.Edit2.Text:='';
                seavtemain.Timer2.Enabled:=false;
                seavtemain.label7.Caption:='0';
                seavtemain.label8.Caption:='0';
                seavtemain.label10.Caption:='0';
                seavtemain.label11.Caption:='0';
                t:=60;
                seavtemain.Memo1.Lines.LoadFromFile('seavte.txt');
                seavtemain.label23.Caption:='综合测试';
                showmessage('现在进行综合测试,请设置测试时间!');
                seavtemain.myidea(Sender);
              end else
    else
    begin
      c:=0;
      showmessage('现在进行综合测试,请设置测试时间!');
      memo1.Lines.LoadFromFile('seavte.txt');
      label23.Caption:='综合测试';
      seavtemain.myidea(Sender);
    end;
end;

procedure Tseavtemain.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tseavtemain.SpeedButton7Click(Sender: TObject);
begin
if timer2.Enabled=true then
   if Application.MessageBox(
        '确实要退出这次测试,并接着进行"二级简码"测试吗?',
        '确认',MB_YESNO + MB_DEFBUTTON1+MB_iconquestion)=idYES
        then  begin
                c:=2;
                seavtemain.Edit2.Text:='';
                seavtemain.Timer2.Enabled:=false;
                seavtemain.label7.Caption:='0';
                seavtemain.label8.Caption:='0';
                seavtemain.label10.Caption:='0';
                seavtemain.label11.Caption:='0';
                t:=60;
                seavtemain.Memo1.Lines.LoadFromFile('seavte02.txt');
                seavtemain.label23.Caption:='二级简码';
                showmessage('现在进行二级简码测试,请设置测试时间!');
                seavtemain.myidea(Sender);
              end else
    else
    begin
      c:=2;
     showmessage('现在进行二级简码测试,请设置测试时间!');
     memo1.Lines.LoadFromFile('seavte02.txt');
     label23.Caption:='二级简码';
     seavtemain.myidea(Sender);
    end;
end;

procedure Tseavtemain.Timer4Timer(Sender: TObject);
begin
if c=0 then
       seavtemain.SpeedButton10.Enabled:=false
       else seavtemain.SpeedButton10.Enabled:=true;
if c=1 then
       seavtemain.SpeedButton6.Enabled:=false
       else seavtemain.SpeedButton6.Enabled:=true;
if c=2 then
       seavtemain.SpeedButton7.Enabled:=false
       else seavtemain.SpeedButton7.Enabled:=true;
if c=3 then
       seavtemain.SpeedButton8.Enabled:=false
       else seavtemain.SpeedButton8.Enabled:=true;
end;

procedure Tseavtemain.myidea(Sender: tobject);
begin
i:=-1;
m:=0;
k:=0;
p:=0;
if i<=seavtemain.memo1.Lines.count-1 then
   begin
     i:=i+1;
     seavtemain.edit1.Text:=seavtemain.memo1.Lines.Strings[i];
   end else
       begin
         i:=0;
         seavtemain.edit1.Text:=seavtemain.memo1.Lines.Strings[i];
       end;
seavtemain.Edit2.Enabled:=false;
end;

procedure Tseavtemain.FormShow(Sender: TObject);
begin
aboutbox.ShowModal;
end;

procedure Tseavtemain.SpeedButton8Click(Sender: TObject);
begin
if timer2.Enabled=true then
   if Application.MessageBox(
        '确实要退出这次测试,并接着进行"三级简码"测试吗?',
        '确认',MB_YESNO + MB_DEFBUTTON1+MB_iconquestion)=idYES
        then  begin
                c:=3;
                seavtemain.Edit2.Text:='';
                seavtemain.Timer2.Enabled:=false;
                seavtemain.label7.Caption:='0';
                seavtemain.label8.Caption:='0';
                seavtemain.label10.Caption:='0';
                seavtemain.label11.Caption:='0';
                t:=60;
                seavtemain.Memo1.Lines.LoadFromFile('seavte03.txt');
                seavtemain.label23.Caption:='三级简码';
                showmessage('现在进行三级简码测试,请设置测试时间!');
                seavtemain.myidea(Sender);
              end else
    else
    begin
      c:=3;
      showmessage('现在进行三级简码测试,请设置测试时间!');
      memo1.Lines.LoadFromFile('seavte03.txt');
      label23.Caption:='三级简码';
      seavtemain.myidea(Sender);
    end;
end;

procedure Tseavtemain.myidea2(Sender: tobject);
begin
memo2.Lines.LoadFromFile('toprecord.txt');
label3.Caption:=seavtemain.memo2.Lines.Strings[0];
label4.Caption:=seavtemain.memo2.Lines.Strings[1];
label24.Caption:=seavtemain.memo2.Lines.Strings[2];
label25.Caption:=seavtemain.memo2.Lines.Strings[3]+'个/分钟';
seavtemain.StatusBar1.Panels.Items[0].text:=' 设计:叶海河';
seavtemain.StatusBar1.Panels.Items[1].text:=' 制作时间:2000-11-04     版权所有  翻版必究';
end;

procedure Tseavtemain.Timer5Timer(Sender: TObject);
begin
seavtemain.StatusBar1.Panels.Items[2].text:=timetostr(now)+'    20'+datetostr(now);
end;

procedure Tseavtemain.D2Click(Sender: TObject);
begin
dater.ShowModal;
end;

procedure Tseavtemain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if eorr then
        begin
        Application.MessageBox(
        '程序即将关闭,如有不明,请与作者联系.',
        '关闭',MB_OK+MB_iconstop);
        canclose:=true;
        end
        else
        if Application.MessageBox(
        '请问您确实要退出"SEAVTE-打字测试"系统吗?',
        '确认',MB_OKCANCEL + MB_DEFBUTTON1+MB_iconquestion)=idok then
          canclose:=true else canclose:=false;
end;

procedure Tseavtemain.SpeedButton9Click(Sender: TObject);
begin
if i>0 then
 begin
  i:=i-1;
  edit1.Text:=memo1.Lines.Strings[i];
 end else
   begin
   //i:=memo1.Lines.Count-1;
   edit1.Text:=memo1.Lines.Strings[0];
   end;
end;

procedure Tseavtemain.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if w then
   begin
     sets.ShowModal;
     w:=false;
   end;
end;

procedure Tseavtemain.SpeedButton12Click(Sender: TObject);
begin
if sd1.Execute then seavtemain.RichEdit1.Lines.SaveToFile(sd1.FileName);
end;

procedure Tseavtemain.SpeedButton11Click(Sender: TObject);
begin
if timer6.Enabled=true then
    if Application.MessageBox(
        '如果您确实要打开文件,您输入的内容将被清空!请先保存!您确实要打开文件吗?',
        '确认',MB_YESNO + MB_DEFBUTTON1+MB_iconquestion)=idYES then
          begin
            if od2.Execute then
              begin
                 timer6.Enabled:=false;
                 Label27.Caption:='学生:';
                 label34.Caption:='速度:0个/分钟';
                 seavtemain.label28.Caption:='0';
                 seavtemain.label29.Caption:='0';
                 seavtemain.label31.Caption:='0';
                 seavtemain.label32.Caption:='0';
                 t1:=60;

                  seavtemain.RichEdit1.Lines.LoadFromFile(od2.FileName);
              end;
          end;
end;

procedure Tseavtemain.SpeedButton15Click(Sender: TObject);
begin
if richedit1.Lines.Text<>'' then
    if application.MessageBox('确实要清空吗?  如果清空了就不能恢复!',
       '确认清空',MB_YESNO+MB_iconquestion)=idYES then
      begin
        seavtemain.RichEdit1.Lines.Clear;
        if seavtemain.RichEdit1.Enabled=true then
        seavtemain.RichEdit1.SetFocus;
      end;
end;

procedure Tseavtemain.SpeedButton13Click(Sender: TObject);
begin
if (timer6.Enabled=true) or (richedit1.Text<>'') then
    if Application.MessageBox(
        '如果您确实要退出这次测试,您输入的内容将被清空!请先保存!您确实要退出吗?',
        '确认',MB_YESNO + MB_DEFBUTTON1+MB_iconquestion)=idYES then
          begin
            seavtemain.RichEdit1.Lines.Clear;
            seavtemain.Label27.Caption:='学生:';
            seavtemain.Timer6.Enabled:=false;
            seavtemain.label28.Caption:='0';
            seavtemain.label29.Caption:='0';
            seavtemain.label31.Caption:='0';
            seavtemain.label32.Caption:='0';
            t1:=60;
            sets2.ShowModal;
          end else
    else sets2.ShowModal;
    if timer6.Enabled=true then seavtemain.RichEdit1.SetFocus;
end;

procedure Tseavtemain.Mybmplaod(Sender: Tobject);
begin
SpeedButton1.Glyph.LoadFromFile('5.bmp');
SpeedButton2.Glyph.LoadFromFile('3.bmp');
SpeedButton3.Glyph.LoadFromFile('4.bmp');
SpeedButton4.Glyph.LoadFromFile('2.bmp');
SpeedButton5.Glyph.LoadFromFile('1.bmp');
SpeedButton9.Glyph.LoadFromFile('6.bmp');
SpeedButton11.Glyph.LoadFromFile('3.bmp');
SpeedButton12.Glyph.LoadFromFile('6.bmp');
SpeedButton13.Glyph.LoadFromFile('2.bmp');
SpeedButton14.Glyph.LoadFromFile('4.bmp');
SpeedButton15.Glyph.LoadFromFile('5.bmp');
SpeedButton16.Glyph.LoadFromFile('1.bmp');
image2.Picture.LoadFromFile('back.bmp');
image1.Picture.LoadFromFile('back.bmp');
image3.Picture.LoadFromFile('back.bmp');
image5.Picture.LoadFromFile('wbx.bmp');
end;

procedure Tseavtemain.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
if (pagecontrol1.ActivePage=tabsheet2) and (timer2.Enabled=true) then
    SpeedButton5Click(Sender);
if (pagecontrol1.ActivePage=tabsheet2{1}) and (timer6.Enabled=true) then
    SpeedButton16Click(Sender);
if (pagecontrol1.ActivePage=tabsheet3) and (timer2.Enabled=true) then
    SpeedButton5Click(Sender);
if (pagecontrol1.ActivePage=tabsheet3) and (timer6.Enabled=true) then
    SpeedButton16Click(Sender);
    
end;

procedure Tseavtemain.PageControl1Change(Sender: TObject);
begin
if u and (pagecontrol1.ActivePage=tabsheet2) then
   begin
     sets2.ShowModal;
     u:=false;
   end;
end;

procedure Tseavtemain.Timer6Timer(Sender: TObject);
begin
t1:=t1-1;
if t1>=10 then
  begin
   label31.Caption:=copy(inttostr(t1),1,1);
   label32.Caption:=copy(inttostr(t1),2,1);
  end else
        begin
          label31.Caption:='0';
          label32.Caption:=copy(inttostr(t1),1,1);
        end;
if t1=0 then t1:=60;
if t1=59 then
 begin
   l1:=l1-1;
   if l1>=10 then
     begin
      label28.Caption:=copy(inttostr(l1),1,1);
      label29.Caption:=copy(inttostr(l1),2,1);
     end else
        begin
          label28.Caption:='0';
          label29.Caption:=copy(inttostr(l1),1,1);
        end;
 end;
k1:=((RichEdit1.Lines.Count-1)*16+round(length(Richedit1.Lines.strings[0])/2));
if k1<0 then k1:=0;
p0:=((strtoint(edit4.text)-strtoint(label28.Caption+label29.Caption))*60)+(60-strtoint(label31.Caption+label32.Caption))-60;
q1:=round(k1/(p0/60));
label34.Caption:='速度:'+inttostr(q1)+'个/分钟';
if (l1-1=-1) and (t1=60) then
 begin
  timer6.Enabled:=false;
  speedbutton16.Enabled:=false;
  Application.MessageBox('您的测试时间已完了!','测试完毕',MB_OK +MB_iconexclamation);
  Richedit1.Enabled:=false;
 end;
end;

procedure Tseavtemain.Edit4Change(Sender: TObject);
begin
l1:=strtoint(edit4.text)
end;

procedure Tseavtemain.SpeedButton16Click(Sender: TObject);
begin
if timer6.Enabled=true then
  begin
   timer6.Enabled:=false;
   seavtemain.SpeedButton16.Caption:='继续(&T)';
   seavtemain.SpeedButton16.Font.Color:=clred;
   seavtemain.SpeedButton11.Enabled:=false;
   seavtemain.SpeedButton13.Enabled:=false;
   Richedit1.Enabled:=false;
  end
   else
     begin
       if (label29.Caption<>'0') or (label31.Caption<>'0') or (label32.Caption<>'0')
         or (label28.Caption<>'0') then timer6.Enabled:=true;
       seavtemain.SpeedButton16.Caption:='暂停(&T)';
       seavtemain.SpeedButton16.Font.Color:=clblue;
       seavtemain.SpeedButton11.Enabled:=true;
       seavtemain.SpeedButton13.Enabled:=true;
       Richedit1.Enabled:=true;
       
       Richedit1.SetFocus;
     end;
end;

procedure Tseavtemain.Image2MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
if w then
   begin
     sets.ShowModal;
     w:=false;
   end;
end;

procedure Tseavtemain.SpeedButton14Click(Sender: TObject);
begin
close;
end;

procedure Tseavtemain.Edit1Enter(Sender: TObject);
begin
if edit2.Enabled then edit2.SetFocus else
TabSheet1.SetFocus;
messagebeep(0);
end;

procedure Tseavtemain.Image4Click(Sender: TObject);
begin
aboutbox.ShowModal;
end;

procedure Tseavtemain.N1Click(Sender: TObject);
begin
hel.Show;
end;

procedure Tseavtemain.Label12Click(Sender: TObject);
begin
shellexecute(handle,nil,'http://www.0769cn.com',nil,nil,sw_normal);

end;

procedure Tseavtemain.Label12MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
label11.Font.Style:=label11.Font.Style+[fsunderline];
label11.Font.Color:=clred;
end;

procedure Tseavtemain.N3Click(Sender: TObject);
begin
close;
end;

end.