登录
首页 » Delphi源码 » Delphi 获取MonthCalendar中选择的日期

Delphi 获取MonthCalendar中选择的日期

于 2022-02-02 发布 文件大小:7.13 kB
0 242
下载积分: 2 下载次数: 1

代码说明:

Delphi 获取MonthCalendar中选择的日期,其实就是完成一个时间、日期的选择功能,年份、月份、日期、时间都可自定义调整并选择,这个简单的例子,可演示Delphi中MonthCalendar的用法,生成一个日期时间选择器功能。下面是相关代码:   procedure TForm1.Button1Click(Sender: TObject);   var    Year,Month,Days: Word;   begin    DecodeDate(MonthCalendar1.Date,Year,Month,Days);    Edit1.Text:=IntToStr(Year);    Edit2.Text:=IntToStr(Month);    Edit3.Text:=IntToStr(Days);   end;   全部源码请下载本实例包。

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

发表评论

0 个回复

  • Delphi 监测程序多久未被使用
    Delphi 监测程序多久未被使用,以秒数来衡量使用了多久,打开一次然后再关闭,就可以显示使用了多长时间。
    2022-06-02 20:45:39下载
    积分:1
  • Delphi POP3接收邮件-Email客户端例子
    Delphi POP3接收邮件-Email源码实例,像是一个邮件客户端那样,设定好邮件服务器相关参数后,可连接到邮件服务器,接收邮件,本例子仅包括邮件接收功能,不能发送邮件哦。使用本程序需要设置的参数:邮件服务器POP3、端口、邮件帐户、密码,连接成功后,邮件列表会显示在“邮件”一栏中,单击任意一个邮件,详细信息会显示在“内容”栏中。
    2022-12-15 05:00:03下载
    积分:1
  • Delphi 计算1到10之间的奇数和【
    Delphi 推荐到奇数,并计算1到10之间的奇数求和,这是个简单的数学问题,数学水平高,写出这种小程序并不难,趁机把代码帖出来吧:   procedure TForm1.Button1Click(Sender: TObject);   var    i,j:integer;   begin    j:=0;    For i := 1 to 10 do    begin    if i mod 2 =0 then    Continue;    j := j+i;    Edit1.text := IntToStr(j);    end;   end;
    2023-02-23 03:45:04下载
    积分:1
  • Delphi 使DBGrid支持鼠标滚轮
    Delphi 使DBGrid支持鼠标滚轮,测试前请确保程序已连接好数据库,否则会有很长一段时间反应,读取的数据会显示在DBGrid控件中,请在DBGrid组件中滚动鼠标滚轮,可将整个列表上下滚动,便于浏览数据,这个功能在一些软件中经常会遇到,具体编写思路请下载源码研究。
    2022-04-12 01:26:52下载
    积分:1
  • Delphi 获取全球标准时间
    Delphi 通过网络获取全球标准时间,我们知道在Windows中有三个全球标准时间服务器,若你的电脑设置为自动更新时间,则系统自动会从这三台时间服务器中更新时间,你的电脑就不用自己校对时间了。本程序就是演示,用Delphi编写代码,去连接全球时间服务器,校对时间并更新系统时间的例子,你可通过本源码了解一下时间更新的问题。
    2023-02-03 13:05:04下载
    积分:1
  • 用Delphi生成图片水平交错的动态显示效果
    用Delphi生成图片水平交错的动态显示效果,是一个简单的图片动态显示效果,显示图片的时候,以水平左右交错的方式显示,可用于电子相册中,用于多张图片切换时的过渡动画效果。   本程序有个缺点:只支持BMP的图片,对JPG支持不好,其它格式也不行哦。
    2022-03-23 01:50:52下载
    积分:1
  • Delphi获取和设置汉字输入法
    Delphi 获取系统中已安装的中文输入法,判断是否在中文状态,若是则关闭它,切换半角和全角模式,切换中文标点模式和英文标点模式,并对输入法做相关设置。以下是相关代码:   procedure TForm1.closecid;   var    mycid:hkl;   begin    mycid:=GetKeyBoardLayOut(0);    if ImmIsIME(mycid) then    //判断是否在中文状态,若是则关闭它    immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle);   end;   procedure TForm1.FormShow(Sender: TObject);   var    j:integer;   begin    for j:=0 to screen.imes.count-1 do    begin    //获取系统中已安装的中文输入法    ComBoBox1.Items.Add(screen.Imes.strings[j]);    end;   end;
    2022-10-19 03:05:03下载
    积分:1
  • Delphi时间换算 换算秒数为时间格式
    Delphi时间换算 换算秒数为时间格式,其实这种换算还是挺简单的吧,TimeToStr(I/86400);就可以算出。在运行的程序窗口中,输入任意秒数(必需输入数字)后,点击确定按钮,即可显示出时间格式的秒数了。具体的代码这里不帖了,需要的请下载完整源码吧,运行效果图如截图所示。
    2022-07-17 19:50:24下载
    积分:1
  • 一个无标题栏窗体 如何拖动?Delphi方法示例
    本源码主要演示,Delphi如何拖动一个无标题栏的窗体,此前记得与大分享过不少VB类的相似源码,大部分情况下,我们习惯拖动窗口的标题栏来移动窗口,现在我们把窗口的标题栏去掉了,那么是如何实现窗口的拖动呢?其实我们可以拖动窗口的主窗口部位,同样可以拖动窗口,而且这样似乎更方便操作,关于代码的实现,请大家下载源码后,查看Unit1.pas文件。
    2022-09-30 14:35:03下载
    积分:1
  • Delphi 打印图形(图片)
    Delphi 打印图形,把图片打印出来,通过这个例子,你可以学习到:    strect:Trect;//定义打印输出矩形框的大小    temhi,temwd:integer;   begin    if DIGPrint.execute then    begin    temhi:=imgpic.picture.height;    temwd:=imgpic.picture.width;    while (temhi = printer.pageheight div 2)and    //将图形放大到打印页面的1/2大小    (temwd = printer.pagewidth div 2) do    begin    temhi:=temhi+temhi;    temwd:=temwd+temwd;    end;    with strect do //定义图形在页面上的中心位置输出    begin    left := (printer.pagewidth -temwd) div 2;    top := (printer.pageheight-temhi) div 2;    right := left+temwd;    bottom := top+temhi;    end;    with printer do    begin    begindoc;    canvas.stretchdraw(strect,imgpic.picture.graphic);    enddoc;    end;    end;
    2022-10-24 23:35:04下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载