Delphi - 随笔分类(第5页) - Thenext

如何卸载已经安装在delphi7中控件包？

摘要：1.在component菜单中进入Install Packages删除不要的控件包。2.在component菜单中进入Configure Palette 删除不要的控件包名。3.再进TOOLS->ENVIRONMENT OPTIONS把原来控件的路径删除阅读全文

posted @ 2020-12-19 13:57 Thenext 阅读(392) 评论(0) 推荐(0)

cxgrid使用三问1cxgrid 如何动态创建列2cxGrid 通过字段名取得列3cxGrid动态创建的列里动态创建事件的方法

摘要：//1cxgrid动态创建列 procedure TFrmRuleEdit.CreateCols; var Column: TcxGridDBColumn; begin cdsPowerPrj.First; while not cdsPowerPrj.Eof do begin Column := v 阅读全文

posted @ 2020-11-30 16:57 Thenext 阅读(315) 评论(0) 推荐(0)

Android & iOS 启动画面制作工具（转自龟山Aone）

摘要：Android & iOS 启动画面工具下载：OneSplash.启动画面工具.Aone.20190318.zip 说明：这一个简单的启动画面成生工具，只需要提供主图与底图，即可汇出所有尺寸的启动图。操作方法：主图（可直接将图拖入主图区内）可设定主图留边大小。可调整主图透明度。底图（可直阅读全文

posted @ 2020-11-18 10:37 Thenext 阅读(227) 评论(0) 推荐(0)

TdxDbOrgChart 图标显示问题

摘要：procedure TfrmsysWorkManage.DBTreeCreateNode(Sender: TObject; Node: TdxOcNode); begin inherited; with Node,WorkCDS do begin Node.ChildAlign := GetNode 阅读全文

posted @ 2020-11-06 16:37 Thenext 阅读(280) 评论(0) 推荐(0)

手机号码验证

摘要：if (not TRegEx.IsMatch(Edit1.Text, '^[0-9]{11}')) or (length(Edit1.Text) <> 11) then // 11位数字，否则不合格 begin ShowMessage('请输入正确的11位手机号码'); exit; end 引用 S 阅读全文

posted @ 2020-09-30 08:56 Thenext 阅读(289) 评论(0) 推荐(0)

FDMemTable 提示操作速度尤其是循环

摘要：with FDMemTable1 do begin DisableControls; //切断数据感知控件 try Open; //打开 //定义Field fld_Id := TIntegerField(FieldByName('Id')); fld_Value := TStringField(F 阅读全文

posted @ 2020-09-19 23:50 Thenext 阅读(459) 评论(0) 推荐(0)

Delphi 计算程序运行时间

摘要：1 var 2 StartTime, EndTime: cardinal; 3 begin 4 StartTime := GetTickCount; 5 sleep(1000); 6 EndTime := GetTickCount; 7 caption := (IntToStr(EndTime - 阅读全文

posted @ 2020-09-19 23:49 Thenext 阅读(432) 评论(0) 推荐(0)

DelphiXE Android的所有权限按照分类总结说明

摘要：相关资料：http://www.delphitop.com/html/Android/2778.html 网络相关的： android.permission.INTERNET 允许程序打开网络套接字 android.permission.CHANGE_NETWORK_STATE 允许程序改变网络连接阅读全文

posted @ 2020-09-19 09:06 Thenext 阅读(279) 评论(0) 推荐(0)

Delphi中Messagedlg用法

摘要：1 if MessageDlg('即将退出，是否继续？', 2 mtConfirmation, [mbYes, mbNo], 0) = mrYes then 3 begin 4 Close; 5 end; 对话框类型： mtwarning——含有感叹号的警告对话框 mterror——含有红色叉符号的阅读全文

posted @ 2020-09-15 10:32 Thenext 阅读(389) 评论(0) 推荐(0)

Delphi中Messagedlg的用法与汉化

摘要：messageDlg, 是在对话框显示消息，并等待用户点击一个按钮，然后返回一个整数确定知道是那个按钮.原型:MessageDlg(const Msg: string; DlgType: TMsgDlgType;Buttons: TMsgDlgButtons; HelpCtx: Longint): 阅读全文

posted @ 2020-09-12 22:09 Thenext 阅读(1120) 评论(0) 推荐(0)

cxgrid 过滤生成器灰色解决

摘要：显示效果如下解决把每一个字段的options--Filtering 设置为true就可以了。阅读全文

posted @ 2020-08-21 13:44 Thenext 阅读(223) 评论(0) 推荐(0)

查看逍遥模拟器端口号

摘要：1.右键应用快捷方式，找到应用安装目录 2.进入安装目录，找到MEmu.memu-prev，我的路径为：D:\Program Files\Microvirt\MEmu\MemuHyperv VMs\MEmu\MEmu.memu-prev，可以根据实际需要更改 3.notepad++打开文件，查看端口阅读全文

posted @ 2020-08-12 08:35 Thenext 阅读(2531) 评论(0) 推荐(0)

Thenext

随笔分类 - Delphi

公告