登录
首页 » Delphi源码 » Delphi 控制键盘指示灯

Delphi 控制键盘指示灯

于 2023-04-11 发布 文件大小:5.29 kB
0 221
下载积分: 2 下载次数: 1

代码说明:

Delphi 控制键盘指示灯,控制键盘灯打开或关闭。就像大小写切换时候,小键盘上面的灯会亮起、关闭,比较简单的一个小功能,适合入门学者参考学习。

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

发表评论

0 个回复

  • Delphi 如何使程序不出现在任务栏上
    Delphi 如何使程序不出现在任务栏上,常规情况下,运行的程序都会在任务栏有一个图标窗口,方便用户操作,不出现在任务栏上也可以,不过不太符合常规,有点隐藏程序的嫌疑,以下代码是实现此功能的:   procedure TForm1.FormCreate(Sender: TObject);   begin    with Application do    SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);    SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);   end;
    2023-03-26 04:55:03下载
    积分:1
  • Delphi窗口淡入淡出渐变fadein fadeout动画效果
    Delphi实现窗口的淡入淡出渐变fadein fadeout动画效果,除了渐变,还有其它的动画形式,比如从中心扩散、水平从左到右、水平从右到左、垂直从上到下、垂直从下到上等。本实例默认状态下是使用了淡入淡出渐变,其它动画效果被注释掉了,如果你想用,可以去掉注释标记。   //淡入效果   //AnimateWindow(self.Handle,1000,AW_CENTER or AW_ACTIVATE);   //从中心扩散   //AnimateWindow(self.Handle,1000,AW_HOR_POSITIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE);   //水平从左到右   //AnimateWindow(self.Handle,1000,AW_HOR_NEGATIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_NEGATIVE or AW_ACTIVATE);   //水平从右到左   //AnimateWindow(self.Handle,1000,AW_VER_POSITIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE);   //垂直从上到下   //AnimateWindow(self.Handle,1000,AW_VER_NEGATIVE or AW_ACTIVATE);   //AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_NEGATIVE or AW_ACTIVATE);   //垂直从下到上
    2022-06-11 17:51:21下载
    积分:1
  • Delphi数据库编程案例:教材管理系统
    这是一款基于Delphi和Access数据库的编程案例:教材管理系统源码,经过修正完善后可作为学校的教材管理程序,功能模块主要有:系统功能设置、教材资料输入、教材出入库管理、教材信息管理等。
    2022-04-14 14:29:20下载
    积分:1
  • Delphi开发的模型飞机测控平台 附
    Delphi开发的模型飞机测控平台 附源代码,里面主要涉及多线程操作、GPS、传感器、端口操作等一系列系统控制的技巧,还包括了许多操作函数,比如绘制飞行轨迹的函数、绘制坐标刻度的函数、用户界面读取发送数据指令的函数、还有线程的同步、线程互斥等。   由于有调试目的,如果要求发送字符格式的数据,就直接发送用户输入的字符串,其他情况下,都是发送打包好的数据矩阵。   调用其它函数实现发送串口数据的功能。注意函数GetData还没有实现线程的互斥,目的是把发送的数据保存在各个线程中。   在此提示: 由于传输系统总会有一定的吴码率,那么为了避免轨迹图出现问题,例如坐标范围过大需要除去粗大误差,考虑到模型飞机的飞行速度不会超过10m/s,考虑到数子传输系统的下传速度,设定如果位置变化超过20m就去掉。
    2022-08-16 19:54:45下载
    积分:1
  • Delphi 应用程序背景与桌面融合在一起
    Delphi 应用程序背景与桌面融合在一起,运行后,显示windows 桌面上的内容,显示壁纸,拖动窗口移动,桌面背景并不移动,好像是一个桌面相框一样,实现代码:   for i:=0 to ControlCount-1 do   if Controls[i] is TGraphicControl then   begin    //使TLabel组件不透明显示    Controls[i].perform(WM_PAINT, TLabel(Controls[i]).canvas.handle, 0);   end;
    2022-02-02 23:31:59下载
    积分:1
  • 用Delphi编写锁定电脑的程序
    Delphi锁定计算机,锁定电脑,不允许别人可以操作,类似Windows自带的锁定程序,其实锁定是非常简单的,不几行代码就能实现:   procedure TForm1.SpeedButton1Click(Sender: TObject);   begin    LockWorkStation;   end;   若需要完整的源码,请下载本源码包。
    2022-04-28 20:57:54下载
    积分:1
  • Delphi 摄像头监控云台镜头控制系统
    Delphi 云台镜头控制系统,用于摄像头监控系统中的云台控制程序,早几年写的,可能现在适用的硬件已经过时了,不过对于编写开发Delphi程序来说,源代码部分还是很有参考价值的。   本套云台控制系统运行的最终界面效果如示例图所示,界面友好,功能实用。   通过这套云台控制程序,你可控制摄像头光圈大孝焦距改变、转动摄像头、打开射灯等功能。
    2023-07-22 04:15:04下载
    积分:1
  • Delphi7 获取文件的修改时间
    Delphi7 获取文件的修改时间,这是一个文件操作实例源代码,获取到文件被修改的时间,代码简单,适合Delphi新手学习参考。
    2022-03-25 03:51:22下载
    积分:1
  • Delphi 获取磁盘序号
    Delphi 获取磁盘序号,获取序号非磁盘编号,也不是序列号。运行后的效果如图所示,应该是所选择的磁盘在我的电脑中的排列序号。   操作时,只需选择对应的盘符,然后单击按钮即可,请参见测试截图所示。
    2022-07-24 20:22:04下载
    积分:1
  • Delphi 枚举线程示例
    枚举线程的Delphi实例代码,Delphi 枚举线程的例子应该很多了,这一个比较简单的那种,可以为学习Delphi的新手朋友提供一些参考思路,运行界面效果如下图所示。源代码编译于Delphi7.0环境。
    2022-08-16 10:03:07下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载