Delphi Base

WindSon

导航

2020年4月17日 #

Delphi 随手笔记,使用了DEV控件组件

摘要: 记录学习过程中的点点滴滴,记性不好,特别写了小工具,欢迎大家下载测试 阅读全文

posted @ 2020-04-17 20:55 windsonvip 阅读(874) 评论(4) 推荐(0) 编辑

2020年4月9日 #

读取软件的版本信息 GetFileVersionInfo

摘要: function GetBuildInfo(FileName: string; var V1, V2, V3, V4: Word): Boolean; var VerInfoSize, VerValueSize, Dummy: DWORD; VerInfo: Pointer; VerValue: P 阅读全文

posted @ 2020-04-09 00:20 windsonvip 阅读(742) 评论(0) 推荐(0) 编辑

Delphi Richedit代码语法加亮显示

摘要: procedure CodeColors(Form : TForm;Style : String; RichE : TRichedit;InVisible : Boolean); const // symbols... CodeC1: array[0..20] of String = ('#','$ 阅读全文

posted @ 2020-04-09 00:17 windsonvip 阅读(640) 评论(0) 推荐(0) 编辑

2020年4月8日 #

判断当父节点含有子节点时 不能删除此父节点

摘要: if cxDBTreeList1.FocusedNode.HasChildren = true then begin Application.MessageBox('当前目录下有下级节点,不能删除!', '提示', MB_OK + MB_ICONINFORMATION); exit; end; 阅读全文

posted @ 2020-04-08 21:57 windsonvip 阅读(357) 评论(0) 推荐(0) 编辑

2020年4月6日 #

delphi+sql数据库增加,删除,修改,查询操作

摘要: 需要注意的是,open一般用于查询(select),exesql用于修改,插入,删除(update,insert,delete) 增加 with dm.DataModule1.ADOQuery1 do begin close; sql.Clear; sql.Add('insert into 表 (字 阅读全文

posted @ 2020-04-06 23:06 windsonvip 阅读(2187) 评论(0) 推荐(0) 编辑

Delphi DataModule1 FDConnection1数据库连接

摘要: procedure Tdm.DataModuleCreate(Sender: TObject); begin try FDConnection1.Connected := False; FDConnection1.Params.Database := ExtractFileDir(ParamStr( 阅读全文

posted @ 2020-04-06 21:28 windsonvip 阅读(726) 评论(0) 推荐(0) 编辑

2020年4月5日 #

Delphi 模糊查询和字段查询

摘要: procedure TFrmain.scGPEdit1Change(Sender: TObject); var ASql, AKey: string; //模糊查询和字段查询 const vsql1: string = 'select * from delphi where Title like ' 阅读全文

posted @ 2020-04-05 22:11 windsonvip 阅读(534) 评论(0) 推荐(0) 编辑

2020年3月28日 #

Delphi 检测鼠标键盘多久没有活动

摘要: function GetInputAwayTime():DWORD; var lpi:TLastInputInfo; begin lpi.cbSize := sizeof(lpi); GetLastInputInfo(lpi); Result := Round((GetTickCount()-lpi 阅读全文

posted @ 2020-03-28 14:49 windsonvip 阅读(420) 评论(0) 推荐(0) 编辑

2020年3月25日 #

Delphi 使用API函数AnimateWindow实现窗体特效功能

摘要: API函数 AnimateWindow 使用: 函数功能:窗体显示和隐藏时产生特殊的动画效果;可以产生两种类型的动画效果: 滚动动画 和 滑动动画 函数原型:BOOL AnimateWindow(HWND hWnd, DWORD dwTime, DWORD dwFlags) 参数说明:hWnd 指定 阅读全文

posted @ 2020-03-25 21:45 windsonvip 阅读(339) 评论(0) 推荐(0) 编辑

delphi 让子窗体显示最大化

摘要: procedure TForm2.FormCreate(Sender: TObject); begin perform(WM_SIZE,SIZE_MAXIMIZED,0); end; 阅读全文

posted @ 2020-03-25 21:24 windsonvip 阅读(486) 评论(0) 推荐(0) 编辑