当前位置:国家开放大学(Delphi程序设计)题库

问题:

[填空题]

在窗体上画一个标签(名称为Label1)和一个时钟组件(名称为Timer1),添加2个按钮“开始”(Button1)和“停止”(Button2)。程序运行后,单击窗体“开始”按钮,时钟组件启动,并开始在标签中更新显示当前时间,每隔1秒钟变换一次,按停止按钮停止计时。(见图)。请填空。


然后编写如下几个事件过程: 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Timer1.Enabled :=(①) ;   
    Timer1.Interval  := (②) ; 
end;  
procedure TForm1.Button1Click(Sender: TObject); begin 
  Timer1.Enabled := (③) ; 
end;  
procedure TForm1.Button2Click(Sender: TObject); begin
    Timer1.Enabled :=  (④); 
end;  
procedure TForm1.Timer1Timer(Sender: TObject); begin 
    label1.Caption  :=  TimeToStr(⑤); 
end;

Which two are valid agent interfaces for Cisco Unified Contact Center Express?() ["Macintosh workstation with Cisco IP Phone Agent  ","Linux workstation running CAD with IP Communicator  ","Linux workstation running CAD with Cisco Unified IP Phone 7960G  ","Citrix Terminal running CAD with IP Communicator  ","Citrix Terminal with Cisco IP Phone Agent  ","Windows workstation running CAD with Media Termination optio"] 恩物 袁昌英的独幕剧《孔雀东南飞》,运用(),探讨了中国社会中普遍存在的“寡妇情结”。 论述市场经济条件下必须进行资产评估的经济行为。 全球关注的“疯牛病”是下列()引起的。 ["细菌","放线菌","真菌","病毒"]

在窗体上画一个标签(名称为Label1)和一个时钟组件(名称为Timer1),添加2个按钮“开始”(Button1)和“停止”(Button2)。程序运行后,单击窗体“开始”按钮,时钟组件启动,并开始在标签中更新显示当前时间,每隔1秒钟变换一次,按停止按钮停止计时。(见图)。请填空。


然后编写如下几个事件过程: 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Timer1.Enabled :=(①) ;   
    Timer1.Interval  := (②) ; 
end;  
procedure TForm1.Button1Click(Sender: TObject); begin 
  Timer1.Enabled := (③) ; 
end;  
procedure TForm1.Button2Click(Sender: TObject); begin
    Timer1.Enabled :=  (④); 
end;  
procedure TForm1.Timer1Timer(Sender: TObject); begin 
    label1.Caption  :=  TimeToStr(⑤); 
end;

参考答案:

  参考解析

本题暂无解析

在线 客服