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

Delphi 控制键盘指示灯

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

代码说明:

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

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

发表评论


0 个回复

  • Delphi 垂直交错显示效果
    图片的垂直交错效果,Delphi 编写的图片垂直交错显示效果,之前就分享过这种效果,类似百叶窗的交替显示效果,可用于图片转场,不过本效果还有很多地方需要优化,当时是写给一本书,作为随书实例的,有兴趣的可参考,关于本功能的关键代码部分,请看以下代码:   newbmp:= TBitmap.Create;   newbmp.Width:=image1.Width;   newbmp.Height:=image1.Height;   bmpheight:=image1.Height;   bmpwidth:=image1.Width;   i:=0;   while i0 do    begin    newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.Canvas,Rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j));    newbmp.Canvas.CopyRect(Rect(0,bmpheight-j-1,bmpwidth,bmpheight-j),image1.Canvas,Rect(0,i-j,bmpwidth,i-j+1));    j:=j-2;    Application.ProcessMessages;    end;    form1.Canvas.Draw(0,0,newbmp);    i:=i+2;   end;   newbmp.free;
    2023-04-12 21:35:03下载
    积分:1
  • 一个相当不错的Delphi TreeView树控菜单
    一个Delphi编写的相当不错的TreeView树控菜单,类似于Windows资源管理器中的树状菜单。   ParentFolder: IShellFolder; // 节点对应的文件夹的父文件夹的IShellFolder接口   Pidl, FullPidl: PItemIDList;// 节点对应的文件夹的相对和绝对项目标识符列表   HasExpanded: Boolean; // 节点是否展开   通过这个树形菜单制作实例,你可以学习到几个对项目标识符进行操作的函数,同时还有将二进制表示的项目标识符列表转换成有可识的项目名,获得每个文件夹在系统中的图标,获得系统的图标列表,生成文件夹管理树等。
    2022-02-01 01:44:12下载
    积分:1
  • Delphi实现TdxDBTreeView节点全部展开或收拢
    本源码演示如何实现Delphi TdxDBTreeView节点全部展开或收拢功能,也就是大家熟悉的树形菜单节点的折叠或展开功能,在平时的使用中,树形节点是很常用的一个菜单功能,本例子的树形菜单节点功能读取自数据库,因此在测试前请连接好数据库。   //单击全部展开按钮   procedure TForm1.Button1Click(Sender: TObject);   begin    dxDBTreeView1.FullExpand;   end;    //单击全部收拢按钮   procedure TForm1.Button2Click(Sender: TObject);   begin    dxDBTreeView1.FullCollapse;   end;
    2022-01-26 05:17:01下载
    积分:1
  • Delphi 百叶窗的方式显示图像
    百叶窗效果的图像显示,这个效果我觉得大家不会陌生吧,在电视上、电脑上,这种切换图片显示的方式还是挺常见的,像百叶窗的样式,本效果重在演示图像的解析。
    2022-02-04 23:25:14下载
    积分:1
  • Delphi 演示使用演示Brush对象的各种风格
    Delphi 演示使用演示Brush笔刷对象后生成的各种风格,一种演示了7种笔刷效果,定义了一个存储绘图风格的7维数组,然后使用For循环对绘图风格数组赋值,然后使用Canvas.Brush.Style来预览风格。这些笔刷风格都是浅色彩的风格。
    2022-07-08 18:13:17下载
    积分:1
  • Delphi 7.0 显示密编辑框中的密
    Delphi 7.0 源代码示例演示:显示密码编辑框中的密码,也就是获取Edit组件中的内容,显示给用户,在代码编写时,可参考下边的几行代码:   L:=GetWindowTextLength(Edit1.handle)+1; //得到名字长度,并将长度加1   GetMem(Name,L);//为将要得到的名字分配内存   GetWindowText(Edit1.handle,Name,L);//得到名字   label1.Caption:=String(Name);//将得到的名字显示于Label1   FreeMem(Name,0); //释放分配的内存   完整的源代码请下载。
    2022-04-06 19:23:17下载
    积分:1
  • 用实例演示delphi Exit语句的使用
    用实例源码演示delphi Exit语句的使用,这个是比较基础的delphi语法实例了,以一个输入界面来演示exit函数的使用方法。演示了如果用户的输入不符合条件的话,则使用Exit语句结束执行,跳出程序,在如图所示的输入项中,任意一项输入不符合要求,则会直接退出程序的执行。
    2022-02-15 15:18:24下载
    积分:1
  • 窗口中的弹出式右键菜单-delphi
    窗口中的弹出式右键菜单-delphi PopupMenu源码,   procedure TForm1.Button1Click(Sender: TObject);   var    Poin:TPoint;   begin    Poin := Point(Button1.Left,Button1.Top+Button1.Height);    Poin := ClientToScreen(Poin);    PopupMenu1.Popup(Poin.X,Poin.Y);   end;
    2022-07-24 15:12:59下载
    积分:1
  • Delphi 创建Excel表格文件
    Delphi 读取SQLSERVER数据库内容,并创建Excel表格文件,将内容导出到excel文件中,核心同样是基于createoleobject对象的excel.application方法实现,创建EXECEL对象 ,添加comobj单元,用循环加入记录,将数据表导入到Excel表中,正式开始EXECEL输出。
    2022-02-15 04:17:26下载
    积分:1
  • Delphi 显示文件的播放进度
    Delphi 显示文件的播放进度,使用了Timer实现对进度的计算和显示。
    2022-05-28 13:11:17下载
    积分:1
  • 696518资源总数
  • 104434会员总数
  • 22今日下载