首页
博客
源码
资源
博客
源码
写文章
发布博客
发布资源
登录
X
delphi
相关资讯
热门
最新
代码人生
01-01 08:00
代码人生
delphi 向Windows窗口发送Alt组合键的问题
delphi 向Windows窗口发送Alt组合键的问题 但就是没有很好解决问题。 之前找到一个能正确发送的code:(Alt+A) PostMessage(hWnd,WM_SYSKEYDOWN,VK_MENU,0); PostMessage(hWnd,WM_SYSKEYDOWN,0x41,0); Sleep(50); PostMessage(hWnd,WM_S
56
代码人生
01-01 08:00
代码人生
delphi中文件拖拽到窗体
delphi中文件拖拽到窗体 --------------------------- 哈哈,这个是某个大神的,直接搬过来; ------------本人加了一点东西,加了一个图标,试了一下,Exe图标可以放上来,提供一个思路 ----------------------------- ---------------Unit开始 unit Un
50
代码人生
01-01 08:00
代码人生
Delphi 10.4 -- TNetHTTPClient使用示例
Delphi 10.4 -- TNetHTTPClient使用示例 原文: function GetAccessToken(const client_id, client_secret: string; HTTP: TNetHTTPClient;out access_token,expires_in,error:String):Boolean; var URL:String; cParam:TStringLis
126
代码人生
01-01 08:00
代码人生
delphi用fieldbyname方法取某一列值的 问题
delphi用fieldbyname方法取某一列值的 问题 用fieldbyname能不能取某一数据库的一列的值,并把这一列的值按顺序分别存放到stringgrid的对应的位置中?如果能该怎样写语句??(query控件已经设好) 假设query控件名称为query1,要取的字段名为:name,字符串类型,那么如下写:varsname:string;beginquery1.first;while not query
51
代码人生
01-01 08:00
代码人生
Delphi App集成DPush
Delphi App集成DPush 前文,我们介绍了在kbmMW服务端集成DPush,实现kbmMWServer向DPush代理服务器发送消息,由于DPush优美的封装,代码量已经非常少了,实现起来非常方便与简洁。这个实现后,我们就可以在App客户端调用kbmMWServer封装的方法,轻松实现App推送消息给其他的用户。现在来看一下具体调用的代码: procedure TTestFor
94
代码人生
01-01 08:00
代码人生
Delphi XE System.UIConsts 模块
Delphi XE System.UIConsts 模块 Delphi XE System.UIConsts 模块 1、源代码: unit System.UIConsts; interface uses System.UITypes, System.Classes; const claAliceblue = TAlphaColors.AliceBlue; claAntiquewhite = TA
113
代码人生
01-01 08:00
代码人生
Delphi(TListView)列表视图组件详解
Delphi(TListView)列表视图组件详解 Delphi(TListView)列表视图组件详解 TListView 组件以多种形式显示列表的项目,如详细资料、小图标、大图标等形式表示列表中的项目。 列表视图与用TListBox 组件实现的列表框非常相似。不同的是,列表视图可以让用户选择不同的显示方式,诸如大图标方式、小图标方式、简单列表方式和详细列表方式等。Windows XP 的资源管
77
代码人生
01-01 08:00
代码人生
Delphi获取文件名、不带扩展名文件名、文件所在路径、上级文件夹路径的方法
Delphi获取文件名、不带扩展名文件名、文件所在路径、上级文件夹路径的方法 1.获取不带扩展名的文件名方法,利用ChangeFileExt函数修改传入参数的扩展为空,并不会对文件本身产生变更。 ChangeFileExt(ExtractFileName(‘D:\KK\Test\123.txt‘),‘‘); //返回 123 2.获取上级文件夹路径的方法。 ExtractFileDir(‘D:\KK\Test\‘)+‘..
96
代码人生
01-01 08:00
代码人生
delphi将文件资源打包到exe中
delphi将文件资源打包到exe中 一开始没有集成到exe单文件里的时候我用的笨方法CopyFile(pchar(‘SYSlanhai.dll‘), pchar(‘SYSManage.exe‘), False); //复制文件 这样,有多个文件的时候很不方便,集成到exe里简单、稳定、速度快。 过程: 创建一个文本文件,然后将资源文件按照如下格式填写:a b demo.DLL (
105
代码人生
01-01 08:00
代码人生
Delphi System单元-Odd- 判断是否是奇数
Delphi System单元-Odd- 判断是否是奇数 Delphi System单元-Odd- 判断是否是奇数 原型: function Odd(X:Integer): boolean; Delphi示例: var i: Integer; b: Boolean; begin i := 1; b := Odd(i); {是奇数返回真} Sh
80
«
1
2
3
4
5
6
7
8
...
14
15
»