?? main.pas

?? 用DELPHI編寫的一個打字軟件,想的朋友快點下啊,帶源嗎
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
                t:=60;
                seavtemain.Memo1.Lines.LoadFromFile('seavte01.txt');
                seavtemain.label23.Caption:='一級簡碼';
                showmessage('現(xiàn)在進行一級簡碼測試,請設置測試時間!');
                seavtemain.myidea(Sender);
              end else
    else
    begin
      c:=1;
      showmessage('現(xiàn)在進行一級簡碼測試,請設置測試時間!');
      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('現(xiàn)在進行綜合測試,請設置測試時間!');
                seavtemain.myidea(Sender);
              end else
    else
    begin
      c:=0;
      showmessage('現(xiàn)在進行綜合測試,請設置測試時間!');
      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('現(xiàn)在進行二級簡碼測試,請設置測試時間!');
                seavtemain.myidea(Sender);
              end else
    else
    begin
      c:=2;
     showmessage('現(xiàn)在進行二級簡碼測試,請設置測試時間!');
     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('現(xiàn)在進行三級簡碼測試,請設置測試時間!');
                seavtemain.myidea(Sender);
              end else
    else
    begin
      c:=3;
      showmessage('現(xiàn)在進行三級簡碼測試,請設置測試時間!');
      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(
        '程序即將關閉,如有不明,請與作者聯(lián)系.',
        '關閉',MB_OK+MB_iconstop);
        canclose:=true;
        end
        else
        if Application.MessageBox(
        '請問您確實要退出"SEAVTE-打字測試"系統(tǒng)嗎?',
        '確認',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:='繼續(xù)(&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.
上一頁 12
?? 文件大小 122 K
?? 上傳用戶 xushenghao001
?? 所屬分類其他
??? 相關標簽

#DELPHI #編寫 #軟件
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? main.pas

?? 快捷鍵說明
