摘要：1.下载csdn的fastreport6的压缩包。地址附在下方。 https://download.csdn.net/download/qq_15267865/12653879 2.右键，以管理员的权限打开文件recompile.exe 3.选择自己的delphi版本。 4.可选择语言为中文，也可以 阅读全文

摘要：大华监控设备配置文件导入生成工具，方便批量添加设备 阅读全文

摘要：大华监控和天地伟业监控免输密码登录助手，设置好参数可自动登录到摄像机，方便更改通道名 可以PING通断加入到列表的网段IP 输入监控IP打开后，点击人头登录即可自动登录 阅读全文

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

摘要：为了方便自己查询数据库信息，花了小时间写了小工具，添加SQL语法高亮显示功能 阅读全文

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

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

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

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

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

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

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

摘要：type TForm2 = class(TForm) private { Private declarations } public { Public declarations } procedure CreateParams(var Params:TCreateParams); override; 阅读全文

摘要：1、定义一个全局变量保存显示到标题栏的字符串，strScroll: Widestring = '风行天下 - By WindSon '; 2、添加一个Timer控件，设置属性Interval := 300; Enabled:=True; 3、然后添加Timer事件 procedure TForm1. 阅读全文

摘要：// 循环往上滚动 if Memo1.Perform(EM_SCROLL,SB_LINEDOWN,0)=0 then begin Memo1.Perform(WM_VSCROLL,SB_TOP,0); end else begin SendMessage(Memo1.Handle,WM_VSCROL 阅读全文

摘要：for i := CheckListBox1.Items.Count-1 downto 0 do //从后面往前面删 begin if CheckListBox1.Checked[i] then // 是否选中 begin CheckListBox1.Items.Delete(i); end; en 阅读全文

摘要：if not (key in ['0'..'9',#8]) then key := #0; 阅读全文

摘要：procedure RoundControl(Control: TWinControl; arc1, arc2: Integer); var R: TRect; Rgn: HRGN; begin with Control do begin R := Control.ClientRect; Rgn : 阅读全文

摘要：procedure setAppFront(); //使程序的窗口出现在最前面并激活 var pt, OldPt, NewPt: TPoint; begin //判断Application是否最小化，而不是主窗口的Handle, 使用Restore来还原 if IsIconic(Applicatio 阅读全文

摘要：第一种方法，使用“过程调用” procedure Del; // 自定义过程 var Mutex: THandle; begin Mutex := CreateMutex(nil, True, PChar(Application.Title)); if GetLastError = ERROR_AL 阅读全文