登录
首页 » Delphi源码 » Delphi为程序添加esc退出程序的功能

Delphi为程序添加esc退出程序的功能

于 2022-07-21 发布 文件大小:5.40 kB
0 182
下载积分: 2 下载次数: 1

代码说明:

本源码演示Delphi如何用ESC键退出程序,为程序添加esc退出程序的功能,一般情况下,关闭程序都是通过ALT+f4或者直接点击窗口右上角的叉子关闭,不过我们也可以为程序添加通过键盘按下ESC键来关闭程序,本源码就是演示了此种功能,当用户按下ESC时,窗口即关闭,程序退出。

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

发表评论

0 个回复

  • Delphi 改变当前鼠标样式
    Delphi 改变当前鼠标样式,这个样式比较个性了,把箭头状的鼠标指针替换成了一幅图像,还有动画效果。具体实现,请下载本源码一看究竟。本程序具备的功能是可以选择的,用户可选择改变鼠标的形状是否是当前窗口或系统,选择当前窗口则只会在本测试程序的窗口中改变鼠标的形状。
    2023-07-31 03:10:03下载
    积分:1
  • Delphi TreeView来显示数据库信息
    Delphi 使用TreeView来显示数据库信息,从数据库中读取数据,然后生成树形交叉节点的菜单,这种菜单通俗的叫做“树形菜单”,也是大家平时比较常见的菜单形式之一。   function TreeAddItem(Sender: TTreeView;ItemList: TStrings;BookMark: TBookMark;Resort: Boolean):TTreeNode;   var    ThisNode,Node: TTreeNode;    i: integer;   begin    Node := Nil;    for i := 0 to ItemList.Count-1 do    begin    ThisNode := TreeFindItem(Sender,Node,ItemList[i]);    if(ThisNodeNil) then Node := ThisNode    else begin    if I   then begin    if I=0 then Node := Sender.items.Add(Node, Itemlist[i])    else Node := Sender.items.AddChild(Node, Itemlist[i]);    end    else begin    if I=0 then Node := Sender.items.AddObject(Node, Itemlist[i],Bookmark)    else Node := Sender.items.AddChildObject(Node, Itemlist[i],Bookmark);    end;    Node.stateIndex := Node.level + 1;    if Resort and (Node.parent nil) then Node.parent.alphasort;    end;    end;    Result := Node;   end;
    2022-02-02 14:05:08下载
    积分:1
  • Delphi 目录操作范例:改变当前目录
    Delphi 目录操作范例:改变当前目录,先获取当前的目录路径,然后改变这个目录路径,文件当前在此目录,那么如何修改文件路径呢?   procedure TForm1.Button1Click(Sender: TObject);   begin    try    chdir(Edit2.Text);    finally    getdir(0,result);    Edit2.Text := result;    end;   end;   源代码仅供参考。
    2022-11-19 16:05:03下载
    积分:1
  • Delphi获取从开机到现在CPU运行的周期数
    Delphi获取从开机到现在CPU运行的周期数,不是获取开机时间多长,是CPU的周期数,显示的值为数字字符串,运行效果如示例截图所示。代码段:   begin   Edit1.Text := inttostr(periodicity);   end;
    2022-07-05 04:51:29下载
    积分:1
  • Delphi 获取MonthCalendar中选择的日期
    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;   全部源码请下载本实例包。
    2022-02-02 06:32:18下载
    积分:1
  • Delphi 键盘钩子 封锁 windows 热键
    Delphi 键盘钩子 封锁 windows 热键,封锁范围,可参见以下代码:    keycost := LPKBDLLHOOKSTRUCT(lParam);    if (keycost.vkCode=91) then//封锁win键    exit;    if (keycost.vkCode=VK_ESCAPE) and (GetAsyncKeyState(VK_CONTROL)0) then    exit; //封锁 ALT+TAB    if (keycost.vkCode=115) and ((keycost.flags and LLKHF_ALTDOWN)>0) then    exit; //封锁 ALT+F4    if (keycost.vkCode=VK_ESCAPE) and ((keycost.flags and LLKHF_ALTDOWN)>0) then    exit; //封锁 ALT+ESC    if (keycost.vkCode=VK_SPACE) and (GetAsyncKeyState(VK_CONTROL)
    2023-03-30 06:05:03下载
    积分:1
  • delphi开发的谷歌翻译工具内含
    delphi开发的谷歌翻译工具,使用该工具可以不用打开浏览器,然后输入谷歌翻译地址才能进行翻译工作, 而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。 同时,你拿到此源码还可以进行二次开发,以满足你更多需要和想象。
    2022-01-25 22:56:02下载
    积分:1
  • 在Delphi中进行 YCrCb RGB 颜色值转换
    在Delphi中进行 YCrCb RGB 颜色值转换,载入一张测试图片,右侧显示的转换后的颜色图像,文本框中显示的是各个转换过的颜色值。希望通过这个Delphi例子,帮你了解一下YCrCb向RGB颜色值的转换过程,转换方法和思路,本源码中则是具体的实战代码,请下载后研究。
    2022-05-23 08:16:07下载
    积分:1
  • Delphi 获取全球标准时间
    Delphi 通过网络获取全球标准时间,我们知道在Windows中有三个全球标准时间服务器,若你的电脑设置为自动更新时间,则系统自动会从这三台时间服务器中更新时间,你的电脑就不用自己校对时间了。本程序就是演示,用Delphi编写代码,去连接全球时间服务器,校对时间并更新系统时间的例子,你可通过本源码了解一下时间更新的问题。
    2023-02-03 13:05:04下载
    积分:1
  • Delphi 鼠标双击TStatusBar时判断是哪一个panels
    Delphi 鼠标双击TStatusBar时判断是哪一个panels,这个是把窗口的状态栏分隔,每个隔断中显示不同的内容,用鼠标双击不同的隔断,程序将判断用户点击了哪个隔断,并获取到该栏中的文字内容显示出来。
    2023-02-09 01:20:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载