登录
首页 » Delphi源码 » Delphi getTime 获取当前日期时间实例源码

Delphi getTime 获取当前日期时间实例源码

于 2022-11-15 发布 文件大小:5.43 kB
0 201
下载积分: 2 下载次数: 2

代码说明:

Delphi getTime 获取当前日期时间,用的是DateTimeToStr,运行本窗口后,自动获取当前电脑上的时间,显示在窗体指定的Lable标签中,这是核心的源代码:   procedure TForm1.Timer1Timer(Sender: TObject);   begin    Label1.Caption := DateTimeToStr(now());   end;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • 形象的电子表-Delphi程序
    Delphi编写制作一款形象的电子表(钟表)效果,模拟时钟,界面方面做成了圆形,看不见窗口的边框,像是透明的窗口,各个指针会走动,关于各个指针的移动及计算方法,有兴趣可参考:   vh := Hour/12.0*2*Pi;   vm := Min/60.0*2*Pi;   vs := Sec/60.0*2*Pi;   with Canvas do   begin    Pen.Width:=4;    Pen.Color := clBlack;    MoveTo(60,60);    LineTo(60+Round(25*Sin(vh)),60-Round(25*Cos(vh)));    Pen.Width:=2;    Pen.Color := clBlack;    MoveTo(60,60);    LineTo(60+Round(45*Sin(vm)),60-Round(45*Cos(vm)));    Pen.Width:=1;    Pen.Color := clRed;    MoveTo(60,60);    LineTo(60+Round(55*Sin(vs)),60-Round(55*Cos(vs)));   end;   窗体方面:这个圆盘窗口要是能移动就好了,不支持右键菜单,也不能关闭,关闭窗口需要按键盘上的ALT+F4。
    2022-01-27 12:29:32下载
    积分:1
  • Delphi 演示使用演示Brush对象的各种风格
    Delphi 演示使用演示Brush笔刷对象后生成的各种风格,一种演示了7种笔刷效果,定义了一个存储绘图风格的7维数组,然后使用For循环对绘图风格数组赋值,然后使用Canvas.Brush.Style来预览风格。这些笔刷风格都是浅色彩的风格。
    2022-07-08 18:13:17下载
    积分:1
  • Delphi 全屏播放视频窗口
    Delphi 全屏播放视频窗口,这是一个自动全屏的窗口,当你播放视频时,窗口会自动最大化,并且隐藏窗口的标题栏和状态栏,就像播放视频时的全屏效果一样。
    2022-01-26 06:52:10下载
    积分:1
  • Delphi 计算正负数绝对值
    Delphi 返回指定数值的绝对值,计算正负数绝对值的例子,FloatToStr(Abs)函数用法代码,示例中计算了小数、整数两种数据类型的绝对值,单击对应的箭头,即可查看计算结果,对应的三种计算方法,请参见以下代码:   procedure TForm1.SpeedButton1Click(Sender: TObject);   begin    Edit2.Text := FloatToStr(Abs(-1.5));   end;   procedure TForm1.SpeedButton2Click(Sender: TObject);   begin    Edit4.Text := FloatToStr(Abs(-200));   end;   procedure TForm1.SpeedButton3Click(Sender: TObject);   begin    Edit6.Text := FloatToStr(Abs(-1.80));   end;
    2022-06-13 12:40:35下载
    积分:1
  • Delphi获取从开机到现在CPU运行的周期数
    Delphi获取从开机到现在CPU运行的周期数,不是获取开机时间多长,是CPU的周期数,显示的值为数字字符串,运行效果如示例截图所示。代码段:   begin   Edit1.Text := inttostr(periodicity);   end;
    2022-07-05 04:51:29下载
    积分:1
  • 取消窗体标题栏的关闭按钮-Delphi代
    Delphi 取消窗体标题栏的关闭按钮,也就是单击窗口右上角的关闭按钮,窗体并不会关闭,让关闭按钮失去了作用,用户可通过单击窗口中的自定义按钮来关闭窗口,这样就相当于取消了窗体标题栏中的关闭按钮。
    2022-07-04 03:53:29下载
    积分:1
  • Delphi获取BMP图片指定点RGB值
    delphi获取图片指定点RGB颜色值,载入一张BMP图像,鼠标单击图像任意处,将获取该处的RGB颜色分量图。任何一种颜色都是由RGB分量值构成,获取这些分量值,就可以改变这些值,从而改变颜色,为程序的进一步处理提供基础保障,获取RGB颜色分量,相关代码如下:   procedure TForm1.SpeedButton1Click(Sender: TObject);   begin    if OpenPictureDialog1.Execute then    begin    image1.Picture.LoadFromFile(OpenPicturedialog1.FileName);    Form1.Canvas.Draw(0,0,image1.Picture.Bitmap);    end;   end;
    2023-09-03 19:00:03下载
    积分:1
  • Delphi 实现图像热点功能
    Delphi 实现图像热点功能,实现一张图片上不同形状区域的热点,定义椭圆形、四边形、三角形的区域变量的热点,相关代码如下:   var    thepoint:array [1..8] of tpoint;//存储多边形顶点坐标    count:integer;    pointnum:array [1..2] of integer;   begin   //四边形顶点坐标,首末点封闭    thepoint[1]:=point(135,99);    thepoint[2]:=point(105,183);    thepoint[3]:=point(129,201);    thepoint[4]:=point(188,92);    thepoint[5]:=point(135,99);    count:=5;//四边形顶点数目,首末点为一点    fourE_rgn:=CreatePolygonRgn(thepoint,count,WINDING);//生成四边形区域    elli_rgn:=CreateEllipticRgn(64,221,231,263);// 生成椭圆形区域    //第一个三角形顶点坐标    thepoint[1]:=point(118,67);    thepoint[2]:=point(32,28);    thepoint[3]:=point(17,90);    thepoint[4]:=point(118,67);    //第二个三角形顶点坐标    thepoint[5]:=point(155,44);    thepoint[6]:=point(202,91);    thepoint[7]:=point(277,44);    thepoint[8]:=point(155,44);    pointnum[1]:=4;//第一个三角形顶点数目    pointnum[2]:=4;//第二个三角形顶点数目    count:=2;//三角形数目   //生成由两个三角形构成的三角形区域   tri_rgn:=CreatePolyPolygonRgn(thepoint,pointnum,count,WINDING);   end;
    2022-01-26 08:02:50下载
    积分:1
  • Delphi 制作的文字屏保
    Delphi 制作的文字屏保,文字交替变化,晃动鼠标结束屏保。本程序的亮点是对文字动画效果的生成和控制。具有文字渐变和水平平移动画。
    2022-03-28 23:49:31下载
    积分:1
  • Delphi 监测程序多久未被使用
    Delphi 监测程序多久未被使用,以秒数来衡量使用了多久,打开一次然后再关闭,就可以显示使用了多长时间。
    2022-06-02 20:45:39下载
    积分:1
  • 696516资源总数
  • 106457会员总数
  • 15今日下载