代码:
implementation

{$R *.dfm}
var
clock12 : boolean := true;
procedure TForm1.Button1Click(Sender: TObject);
begin
clock12:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

展开全部
收起
3回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 闲云

    14人对此回答表示赞同

    你的错误信息是什么?没仔细看,估计是变量定义的问题吧
    你试着把 var
    clock12 : boolean := true;
    这部分内容挪到implementation
    语句前面试试,有问题再问
    展开
    14
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Benjamin

    14人对此回答表示赞同

    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, ExtCtrls;

    type
    TForm1 = class(TForm)
    Timer1: TTimer;
    Button1:
    展开
    14
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • clock8

    11人对此回答表示赞同

    看看你的倒数第4行,也就是:
    panel1.caption:=('hh:nn:ss',time());
    应该修改为:
    panel1.caption:=formatdatetime('hh:nn:ss',time());

    如果还是不执行,请麻烦你粘贴DELPHI显示的不运行的原因。
    展开
    11
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部