-
Delphi 使窗体始终在最前面
Delphi 使窗体始终在最前面，不几行代码实现的置顶窗口，大家对这种窗口相信都不会太陌生，不被其它的窗口遮挡，显示在最前面，典型的应用像一些视频播放器的播放窗口，在播放视频时可设置显示在最顶端，你可以边工作边看电影啦！详细实现请参考源代码。
- 2022-03-14 11:14:48下载
- 积分：1
-
Delphi IntToHex函数用法举例
关于IntToHex，在Delphi中使用频率也是挺高的，不过像我这种菜鸟，对IntToHex的具体用法仍是不太熟悉，后来看了这个小程序，了解了一些，分享给大家，特别是以下代码会加深你对IntToHex函数的用法理解。
procedure TForm1.Button1Click(Sender: TObject);
var
S:integer;
begin
S:=2147483647;
showmessage(inttoHex(s,8));
showmessage(inttoHex(s,10));
showmessage(inttoHex(s,16));
showmessage(inttoHex(s,32));
end;
- 2022-09-07 01:20:03下载
- 积分：1
-
Delphi 使用Canvas美化ListBox列表项
Delphi 使用Canvas美化列表项，当用户鼠标单击ListBox列表项时，该列表项高亮显示，改变背景色，文字居中对齐，如图所示。
主要是使用了Delphi中的Canvas.FrameRect对其进行美化，具体代码有兴趣可参考：
Canvas.FrameRect(Clientrect);
if odSelected in State then
begin
Canvas.Brush.Color:=clRed;
Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,8,15);
setBkMode(Canvas.Handle,TRANSPARENT );
Canvas.TextOut((Rect.right-Rect.Left) div 2,Rect.Top,Items.Strings[Index]);
end
else
begin
Canvas.Brush.Color:=clSkyBlue;
Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,15,15);
Canvas.TextRect(Rect,Rect.Left,Rect.Top,Items.Strings[Index]);
end;
- 2022-06-01 23:33:23下载
- 积分：1
-
内存使用状态Delphi 探测并显示
Delphi获取内存的使用状态并显示信息，这里是使用GlobalMemoryStatus来实现，有的是使用GetSystemInfo来获龋本程序可显示内存大小和可用内存，并显示进度条。不过我这台电脑是16G内存的Windows7 64位系统，程序可能没认出啊，下面是识别内存可用量的大小，仅供参考：
memo_status.dwLength := sizeof(memo_status);
GlobalMemoryStatus(memo_status);
Gauge2.Progress := (round((100*(memo_status.dwAvailPhys
/ memo_status.dwTotalPhys))));
label1.Caption := inttostr(memo_status.dwAvailPhys);
label2.Caption := inttostr(memo_status.dwTotalPhys);
- 2022-02-03 06:55:31下载
- 积分：1
-
Delphi 绘制艺术图案
Delphi 绘制标准的艺术图案,是比较有规则的几何图案,如示例截图所示的样式 。
self.ClientHeight:=200;
self.ClientWidth:=200;
r:=self.ClientWidth/2;
Sect:=20;
for i:=0 to Sect-1 do
begin
x[i]:=Trunc(r*Cos(i*2*PI/Sect)+self.ClientWidth/2);
y[i]:=Trunc(r*Sin(i*2*PI/Sect)+self.ClientHeight /2);
end;
- 2022-01-28 10:36:40下载
- 积分：1
-
Delphi 记录文件的读写
Delphi 记录文件的读写，这个程序非数据库程序，实际上也不是文件读写程序，只是使用主窗口、子窗口在这之间传值。在子窗口中输入数据，确定后，会将数据添加到主窗口的StringGrid中，然后通过修改命令，从StringGrid中再读取出数据，进行修改保存，演示了文件内容的读取和写入的操作过程 。
- 2022-02-12 09:49:41下载
- 积分：1
-
Delphi SQLSERVER停车场收费管理系统
Delphi SQLSERVER停车场收费管理系统，本系统涉及有多个硬件，运行后需要初始化硬件，读取硬件的配置数据，包括控制器。需要联网读取数据，比较综合的一套系统。可对挡车器、停车场照明系统进行管理，可财务报帐、年终结算等功能，主窗口启动时，先连接数据库和用户登录。硬件参数需要重新启动该程序才能生效，设置照明灯自动开关时间，向数据库中写入记录，控制硬件打开挡车器，开始事务：fee_station-结帐次数加1，维护费用AMaintain=0 ,start_fee增加。。。
- 2023-06-03 04:50:05下载
- 积分：1
-
一个相当不错的Delphi TreeView树控菜单
一个Delphi编写的相当不错的TreeView树控菜单，类似于Windows资源管理器中的树状菜单。
ParentFolder: IShellFolder; // 节点对应的文件夹的父文件夹的IShellFolder接口
Pidl, FullPidl: PItemIDList;// 节点对应的文件夹的相对和绝对项目标识符列表
HasExpanded: Boolean; // 节点是否展开
通过这个树形菜单制作实例，你可以学习到几个对项目标识符进行操作的函数，同时还有将二进制表示的项目标识符列表转换成有可识的项目名，获得每个文件夹在系统中的图标，获得系统的图标列表，生成文件夹管理树等。
- 2022-02-01 01:44:12下载
- 积分：1
-
Delphi 获取网页源代码
Delphi 获取网页源代码，这个程序首先是一个网页浏览器，可解析用户输入的网址，直接输出网页界面，然后通过操作主窗口区的Tab选项，查看该网页的源代码，也就是完成了两种功能：1、网页浏览器，2、查看源代码。运行界面如下图示。
- 2023-05-24 10:50:03下载
- 积分：1
-
Delphi 控制键盘指示灯
Delphi 控制键盘指示灯，控制键盘灯打开或关闭。就像大小写切换时候，小键盘上面的灯会亮起、关闭，比较简单的一个小功能，适合入门学者参考学习。
- 2023-04-11 08:00:04下载
- 积分：1
