注意:此页面搜索的是所有试题
应用程序用户界面如下图(左)所示,右图是设计界面。

在Form1上建立一个Panel1对象作为显示时间的面板,建立Timer1对象,并将Interval属性设置为500,将Enabled属性的初始值设置为False。
建立一个全局整型变量TimeCT。
代码如下:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
panel1.Caption := Timetostr(time);
TimeCT := TimeCT + 1;
edit1.text:=inttostr(TimeCT);
end;
procedure TForm1.Button1Click(Sender: TObject); //开始按钮
begin
timer1.Enabled := true ;
TimeCT := 0;
end;
procedure TForm1.Button2Click(Sender: TObject); //停止按钮
begin
timer1.Enabled := false ;
end;
当用户单击开始按钮后,开始时间如上图左所示,过5秒后,就立即按下停止按钮,请写出Panel1对象和Edit1的显示结果。
A、Panel1对象显示内容为:21:02:33 ,Edit1对象显示内容为5
B、Panel1对象显示内容为:21:02:33 ,Edit1对象显示内容为10
C、Panel1对象显示内容为:21:07:28 ,Edit1对象显示内容为5
D、Panel1对象显示内容为:21:07:28 ,Edit1对象显示内容为10

参考答案