?? kk1.pas
字號:
unit kk1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls;
type
TForm5 = class(TForm)
Image1: TImage;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses main;
{$R *.DFM}
procedure TForm5.FormCreate(Sender: TObject);
begin
image1.Picture.LoadFromFile('back.bmp');
end;
procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
form1.Edit2.Text:='';
form1.Timer2.Enabled:=false;
form1.label7.Caption:='0';
form1.label8.Caption:='0';
form1.label10.Caption:='0';
form1.label11.Caption:='0';
t:=60;
case c of
0:begin
form1.Memo1.Lines.LoadFromFile('seavte.txt');
form1.label23.Caption:='綜合測試';
showmessage('現在進行綜合測試,請設置測試時間!');
end;
1:begin
form1.Memo1.Lines.LoadFromFile('seavte01.txt');
form1.label23.Caption:='一級簡碼';
showmessage('現在進行一級簡碼測試,請設置測試時間!');
end;
2:begin
form1.Memo1.Lines.LoadFromFile('seavte02.txt');
form1.label23.Caption:='二級簡碼';
showmessage('現在進行二級簡碼測試,請設置測試時間!');
end;
3:begin
form1.Memo1.Lines.LoadFromFile('seavte03.txt');
form1.label23.Caption:='三級簡碼';
showmessage('現在進行三級簡碼測試,請設置測試時間!');
end;
end;
form1.myidea(Sender);
close;
end;
procedure TForm5.SpeedButton2Click(Sender: TObject);
begin
close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -