随笔列表第2页 - windsonvip

读取软件的版本信息 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 阅读(716) 评论(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 阅读(596) 评论(0) 推荐(0) 编辑

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

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

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

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 阅读(1981) 评论(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 阅读(688) 评论(0) 推荐(0) 编辑

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 阅读(519) 评论(0) 推荐(0) 编辑

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 阅读(409) 评论(0) 推荐(0) 编辑

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

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

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

delphi 让子窗体显示最大化

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

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

Delphi 中拖动无边框窗口的5种方法

摘要： 1.MouseMove事件中加入： // ReleaseCapture; // Perform(WM_SYSCOMMAND, $F017 , 0); 2.MouseDown事件中加入： // POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0); // POSTMESS 阅读全文

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

Delphi Base

导航

公告