- 博客(49)
- 资源 (41)
- 收藏
- 关注
RSS订阅原创 Visual studio 2017 许可证过期解决方法(其它版本应该同样适用)
1、打开进入C:\Program Files (x86)\Microsoft Visual Studio\2017\Enterprise\Common7\IDE 目录。3、再启动Visual studio 2017运行正常，不在提示！2、然后以管理员身份运行DDConfigCA.exe。
2024-01-31 13:40:27
831
1
原创 fastadmin中table字段太长，显示省略号，鼠标停留显示文字
{field: 'remark', title: __('Remark'), operate: false, formatter : function(value, row, index, field){ return "<span style='display: block;overflow: hidden;text-overflow: ellipsis;white-space: nowrap;' title='" + row.remark + "'>" + valu...
2021-12-14 12:09:14
1051
原创 delphi 时间相关
DELPHI高精度计时方法//取毫秒级时间精度(方法一)： var t1,t2:int64; r1:int64; begin t1:=GetTickCount;//获取开始计数 WINDOWS API sleep(1000);{do...}//执行要计时的代码 t2:=GetTickCount;//获取结束计数值 r1:=t2-t1;//取得计时时间，Y\`国4~络(}.u_%t"hV单位毫秒(ms) showmessage(inttos...
2021-11-23 12:24:14
302
原创 DELPHI控件DBGRID导出EXCEL格式
dbgrid数据导出为exceluses Excel2000,ComObj;procedure F_Form.Button1Click(Sender: TObject);var myExcel:TExcel; Int_i,Int_j,rowCount,columnCount:Integer; ExcelId:Variant;begin try ExcelId:=CreateOleObject('Excel.Application'); except...
2021-11-23 12:22:13
1009
原创 delphi windows操作、窗口、句柄、鼠标
输入procedure TypeKeyString(s: string);var c: Char; i: integer; off: integer; vkw: Word;begin for i := 1 to Length(s) do begin c := s[i]; if (c < #128) then begin vkw := VkKeyScan(c); off := 0; if vkw and $10...
2021-11-23 12:18:44
1254
原创 【Delphi POST提交数据】
unit DcpMain;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vc...
2021-11-23 12:14:25
982
原创 阳光有点冷 Delphi执行CMD基本命令返回信息
下面的是返回CMD命令自定义函数//返回DOS运行命令信息function RunDosGetStr(Command: string): string;var hReadPipe: THandle; hWritePipe: THandle; SI: TStartUpInfo; PI: TProcessInformation; SA: TSecurityAttributes; // SD : TSecurityDescriptor; BytesRead: D...
2021-03-31 09:09:06
609
原创 阳光有点冷 Delphi执行CMD基本命令
Delphi中，执行命令或者运行一个程序有2个函数，一个是winexec，一个是shellexecute。这两个大家应该都见过，其中，winexec比较简单，可以直接运行一个外部程序，shellexecute则更高级一些，除了可以运行外部exe，还可以执行特殊命令。下面我们就分别举例子说明：我们先来看看运行一个exe程序，以记事本为例：WinExec(PChar(' notepad .exe'),SW_NORMAL);//正常模式打开WinExec(PChar(' notepad .exe'),
2021-03-31 09:04:58
230
原创 Delphi 中如何禁止重复运行程序的方法
第一种方法，使用“过程调用”procedure Del; // 自定义过程var Mutex: THandle;begin Mutex := CreateMutex(nil, True, PChar(Application.Title)); if GetLastError = ERROR_ALREADY_EXISTS then begin Application.MessageBox('重复登录！','系统提示', MB_ICONERROR); ReleaseMut...
2020-12-03 16:13:27
548
1
原创 Delphi 中SQL模糊查询和字段查询
procedure TFrmain.scGPEdit1Change(Sender: TObject);var ASql, AKey: string; //模糊查询和字段查询const vsql1: string = 'select * from delphi where Title like '; vsql2: string = 'select * from delphi';begin AKey := Trim(scGPEdit1.Text); //获取关键词...
2020-12-03 16:10:52
674
1
原创 Delphi控件DEV插件--Spreadsheet1电子表格使用说明
常用操作Spreadsheet常用属性标题栏是否可见 Spreadsheet1.TitleBar.Visible=true标题栏背景颜色 Spreadsheet1.TitleBar.Interior.Color="Green"标题栏标题内容 Spreadsheet1.TitleBar.Caption="test"标题栏字体颜色 Spreadsheet1.TitleBar.Font.Color="Red"标题栏字体名称 Spreadsheet1.TitleBar.Font.Name="Vendan
2020-12-03 16:08:49
1800
原创 Delphi中关于DevExpress VCL汉化方法
用法1：在工程中加入控件cxLocalizer;在程序中加入如下语句：Localizer.LoadFromFile(‘DevLocal.ini‘);Localizer.Language:='中文(简体，中国)';Localizer.Active:=true;用法2：用DevExpress提供的工具cxLocalizerEditor打开这个ini文件，然后File->BuildResourceFile...;在工程中加入控件cxLocalizer;在程序中加入如下...
2020-12-03 16:07:48
691
原创 Delphi中如何让tcxGrid左边显示序号
第一步：设置cxgrid的属性， OptionsView.Indicator = True第二步：写OnCustomDrawIndicatorCell方法procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean
2020-12-03 16:06:56
504
原创 【阳光有点冷】Delphi+SQL数据库增加，删除，修改，查询操作
SQL需要注意的是，open一般用于查询（select），exesql用于修改，插入，删除（update，insert，delete）增加with dm.DataModule1.ADOQuery1 do begin close; sql.Clear; sql.Add('insert into 表 (字段1,字段2,字段3) values(:a,:b,:c)');//前面的字段就是需要增加的 parameters.ParamByName('a').Value:=t
2020-12-03 15:22:33
826
原创 【Delphi Stringgrid 设置表格文字居中后有重影，去除重影方法】
未设置前效果，没有居中居中代码procedure TForm1.Stringgrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);begin with Sender as TStringGrid do begin Canvas.FillRect...
2020-04-23 15:33:24
765
原创 开发测试技巧|辅助开发调试：goolge谷歌浏览器利用F12在控制台输入脚本实现表单自动填充
一个开发测试技巧的指引和截图，利用google浏览器的F12调试和Console执行，注入JavaScript脚本实现表单的自动填充和测试。执行的JS脚本.- 文本隐藏/显示 functionDevFillClick(){ document.getElementById("txtd...
2020-03-19 09:00:20
1748
原创 android DPI与分辨率的关系及计算方式
Low density (120),ldpi Medium density (160),mdpi High density (240),hdpi Extra high density (320),xhdpi xxhdpi (320) 小屏幕 QVGA (240x320) 480x640 正常...
2019-12-04 10:48:18
617
原创 Excel获取列名AA-ZZ等这样的列名，代码如下
=SUBSTITUTE(ADDRESS(1,COLUMN(),4),1,"")复制代码或者这样也可以：=LEFT(ADDRESS(1,COLUMN(),4),LEN(ADDRESS(1,COLUMN(),4))-1)复制代码
2019-11-26 20:27:17
2547
原创 PHP从A到ZZ的方法
<?phpfor ($i = 0; $i <= 1000; $i++) {$y = ($i / 26);echo $i,"=>";if ($y >= 1) { $y = intval($y); echo chr($y+64); echo chr($i-$y*26 + 65);} else { echo chr($i+65);}e...
2019-11-22 16:39:27
1023
原创 PHPExcel的一些小tips
PHPExcel的一些小tips前言1、导出的Excel内容缺失或打开时报“部分内容有问题，是否让我们尽量尝试恢复”2、如果字符串中有“=”符号，PHPEXCEL将会报错3、需要Z以上的列数(AA-ZZ)4、两种保存方式前言用了PHPExcel有大半年了，这里是关于PHPEXCEL的一些小心得、踩过的坑1、导出的Excel内容缺失或打开时报“部分内容有问题，是否让我们尽量尝试恢复...
2019-11-22 16:19:54
344
原创 Delphi中让图片大小随TImage控件大小变化【阳光有点冷】
需求：如题实现如下：Anchors 下面的全部设为TrueAutoSize := False;Strech := True;
2019-11-11 13:02:32
912
原创 Delphi全局注册自定义快捷建功能
方法一procedure hotykey(var msg:TMessage); message WM_HOTKEY;varF1_ID,F2_ID,F3_ID,F4_ID,F5_ID,F6_ID,F7_ID,F8_ID,F9_ID,F10_ID,F11_ID,F12_ID,DCP_Key1,DCP_Key2,DCP_Key3,DCP_KeyQ:integer; //注册全局快捷键p...
2019-08-22 01:47:47
188
原创 IDHTTP.Get时界面卡死的解决方法
今天做了个IDHTTP.get采集网页的时候，网站网络情况不好，界面就卡死了，通过百度发现使用下面的方法可以实现水卡死情况放一个TIdAntiFreezeControl控件,然后在执行的任务前面加上下面这句即可IdAntiFreeze1.OnlyWhenIdle:=False;//设置使有反应比如：procedure TForm1.Button2Click(Sender: TOb...
2019-08-18 16:12:21
1195
原创 【Delphi checklistbox的简单用法】
procedure TDcpMain.N1Click(Sender: TObject); //删除选中行begin //cxListBoxmovie.Items.Delete(cxListBoxmovie.ItemIndex);//只能删除单行 cxListBoxmovie.DeleteSelected;//删除单行也可以删除多行end;procedure TDcpMai...
2018-05-27 13:36:55
5367
原创 Delphi直接修改文件十六进制的文法
procedure TForm1.Button1Click(Sender: TObject);var MS : TMemoryStream; P0 : PByte; P1 : PByte;begin MS := TMemoryStream.Create; try MS.LoadFromFile( 'A.exe' ); P0 ...
2018-05-06 15:45:13
1235
3
转载 Delphi 往IC卡中写入汉字
往CPU卡中写入汉字或特殊字符，需要先建一个透明文件，然后用APDU命令去修改这个文件，但APDU命令的数据域是不接受汉字或特殊字符的，所以需要把要写入的汉字转成16进制的字节码。读出的时候同样需要把16进制的数据转化成汉字，在此可提供三个函数供参考：//--------------------此函数可把汉字转化为16进制字符串输出---------------------------------...
2018-05-06 14:40:31
715
原创 Delphi用timer运动文字不闪烁问题
正常timer做动画效果会出现闪烁问题以下代码可以解决此问题procedure TForm1.FormCreate(Sender: TObject);beginform1.DoubleBuffered := True; //开启双缓冲，使得lbl_ShowWorking描述不闪烁beginend;...
2018-04-23 12:21:43
783
原创 【Delphi 产生了范围随机数 条件可以自己改】
procedure TForm1.Button1Click(Sender: TObject);vari:Integer;begin //产生了100-999的数 条件可以自己改Randomize;i := random(999);while (i < 100) doi := random(999);edit1.Text:=inttostr(i);end;第...
2017-06-08 01:03:24
882
原创 【Delphi在一个范围内获取随机时间】
uses math;...procedure TForm1.Button2Click(Sender: TObject);var d1,d2,r1,r2:double;a:tdatetime;d:tdatetime;begin d1:=encodedate(1999,1,1); d2:=encodedate(2000,1,1); randomize; r1:=rando...
2017-06-08 00:57:53
823
转载 获取指定地址的 JPG 图片，验证码
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls;ty
2013-10-15 10:10:33
903
转载 如何使用 SendMessage 选择 ListBox、ComboBox 中的项
const i = 1;//初始测试数据procedure TForm1.FormCreate(Sender: TObject);begin ListBox1.Items.CommaText := 'aaa,bbb,ccc'; ComboBox1.Items.CommaText := 'aaa,bbb,ccc';end;//对 ListBox1procedure TForm
2013-10-15 10:07:53
3325
转载 使用 idHTTP 获取 UTF-8 编码的中文网页 - 回复同学 "Delphi学习者" 的问题
uses IdHTTP;const Url = 'http://del.cnblogs.com';procedure TForm1.Button1Click(Sender: TObject);var stream: TStringStream; idHttpObj: TIdHTTP;begin stream := TStringStream.Create('', TEnco
2013-10-15 10:06:41
1073
转载 System.Copy - 从字符串或数组中复制
function Copy( S: String; {字符串或动态数组} Index: Integer; {起始位置} Count: Integer {Copy 个数}): String; {如果参数 S 是动态数组, 这里也应该返回动态数组}举例://从字符串中提取var ss,s: string;begin ss := 'Co
2013-10-15 09:57:47
834
转载 System.Delete - 从字符串中删除
procedure Delete( var S: String; {源字符串; 因为是 var 参数, 不可能是个常量} Index: Integer; {起始位置; 第一个字符的位置是 1, 起始位置不能小于 1 } Count: Integer {要删除的字数});举例:var s: string;begin s := 'Delphi
2013-10-15 09:57:15
757
转载 System 单元下的公用函数目录
有简单提示的链接有效.过程或函数名 分类 简单提示 Abs 绝对值AcquireExceptionObject AddModuleUnloadProc Addr AllocMem
2013-10-15 09:55:22
521
转载 System.Odd - 判断一个整数是不是奇数
var i: Integer; b: Boolean;begin i := 11; b := Odd(i); {是奇数返回真} ShowMessage(BoolToStr(b)); {True} i := 12; b := Odd(i); ShowMessage(BoolToStr(b)); {False}end;
2013-10-15 09:54:54
614
转载 Delphi 2010 新增功能之: TWICImage 类[4] - 图像的修剪
TWICImage 的大多功能都非常容易使用, 它最强大的功能是 ImagingFactory: IWICImagingFactory 属性, 这是个类工厂的接口.所谓类工厂是 COM 里的概念, COM 通过类工厂可以自己实例化一些类, 实例化后我们只管使用就是.通过 TWICImage.ImagingFactory 获取类工厂后, 再调用 CreateBitmapFlipRot
2013-10-15 09:47:03
923
转载 Delphi 2010 新增功能之: TWICImage 类[1] - 方便的图像格式转换
Graphics 单元新增了 TWICImage 类, 该类的功能源于新增的 Wincodec.pas 单元.WIC(Windows Imaging Component) 是 Windows 为 Vista 和 WPF 提供的用于图像编码、解码的 COM 组件, 但在 XP 下也能使用它.WIC 支持的图像有 BMP、PNG、ICO、JPEG、GIF、TIFF、HDP(HDP 是微
2013-10-15 09:44:59
1080
转载 Graphics 单元下的公用函数目录
有简单提示的链接有效.过程或函数名 分类 简单提示 AllocPatternBitmap BytesPerScanline CharsetToIdent ColorToIdent ColorToRGB
2013-10-15 09:43:50
616
转载 StrUtils 单元下的公用函数目录
有简单提示的链接有效.过程或函数名 分类 简单提示 AnsiContainsStr AnsiContainsText AnsiEndsStr AnsiEndsText AnsiIndexStr
2013-10-15 09:40:21
769
【阳光有点冷Delphi系列】D10.3 Rio可用谷歌控件+CEF4Delphi+DcefBrowser+TChromeTabs+JS网页元素交互实例源码_总裁爹地超给力
2020-12-03
TRichView 17.3+【Delphi-Tokyo-10.2.3】安装视频教程+安装说明
2018-08-02
TMS Component Pack 8.3.4.0 D7-RAD10.2 Tokyo BAT安装版+亲自安装测试
2018-07-08
BusinessSkinForm11.51 XE10.2 Tokyo+亲自测试可用
2018-07-08
【Delphi 控件组Raize 6.2.3 XE10.2 Tokyo】 +【安装包和源码并带使用说明+个收收藏+亲身测试可以用】
2018-07-08
Delphi Fastreport 安装动画教程
2018-06-26
StyleControls_3.89_for_XE2-XE10.2_超级漂亮的皮肤控件+国外网站下载来的+个人收藏
2018-05-21
Delphi XE3 v17.0.4625.53395.Lite.v6.0 精简汉化一键安装版+【阳光有点冷个人收藏】B包
2018-04-30
Delphi XE3 v17.0.4625.53395.Lite.v6.0 精简汉化一键安装版+【阳光有点冷个人收藏】A包
2018-04-30
DevExpress VCL V17.2.4 FullSource〖D6-XE10.2Tokyo〗内含安装工具和汉化包+【阳光有点冷2018收集】002包
2018-04-30
DevExpress VCL V17.2.4 FullSource〖D6-XE10.2Tokyo〗内含安装工具和汉化包+【阳光有点冷2018收集】001包
2018-04-30
Delphi用的强大的控件DevExpressVCL一键编译安装工具_v10.0+-+2018-03-18（2018新春版）
2018-04-28
Radmin Server-3.5 完美绿色破解版（x32 x64通用） 第二版+支持Win10+小邓亲测版+端口4899+自动管理登录器
2018-04-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人