Delphi2010 - 随笔分类(第2页) - 涂磊

SavePictureDialog对话框默认后缀名

摘要：procedure TMainForm.As1Click(Sender: TObject); //涂磊添加20241113 JPEG格式导出 begin OpenDialogFile.InitialDir := GetCurrentDir; //11]OpenDialogFile增加 *.dpr 阅读全文

posted @ 2024-11-14 08:52 涂磊阅读(28) 评论(0) 推荐(0)

Action动态实现菜单是否有效

摘要：procedure TMainForm.As1Click(Sender: TObject); //涂磊添加20241113 JPEG格式导出 begin SavePictureDialog.FileName := ChangeFileExt(SaveDialog.FileName, '.jpg') 阅读全文

posted @ 2024-11-13 17:05 涂磊阅读(33) 评论(0) 推荐(0)

ModelMaker 7由pas逆向类图

摘要：下载通过百度网盘分享的文件：ModelMaker_v7.20.rar链接：https://pan.baidu.com/s/1-jc39uRv5X96HqrkeDs5ZA 提取码：i9pb 逆向工程逆向工程在MM中十分简单。但是要提醒，先备份一下你的旧代码。 1.【单元视图】（Units）选“I 阅读全文

posted @ 2024-11-06 15:21 涂磊阅读(71) 评论(0) 推荐(0)

Delphi10.3的Toolbar1也可以竖起来，就像PhotoShop里一样

摘要：阅读全文

posted @ 2024-11-06 10:04 涂磊阅读(48) 评论(0) 推荐(0)

delpih画上半圆

摘要：procedure TForm1.FormPaint(Sender: TObject); const x1 = 10; //left y1 = 10; //top x2 = 200; //right y2 = 200; //bottom x3 = x2; y3 = y1+(y2-y1) div 2; 阅读全文

posted @ 2024-11-05 11:15 涂磊阅读(32) 评论(0) 推荐(0)

Delphi10.3中SpinEdit1和UpDown1上下按钮

摘要：此控件仅支持数字整数.默认情况下不支持小数点,但支持负数输入 SpinEdit1主要属性 procedure TForm1.SpinEdit1Change(Sender: TObject); begin form1.Caption:= inttostr( SpinEdit1.Value ); end 阅读全文

posted @ 2024-11-04 09:14 涂磊阅读(90) 评论(0) 推荐(0)

第三方控件学习汇总

摘要：01delphi10.3下PDFium5.8安装与使用 delphi10.3下CEF4Delphi-107.1.7学习汇总 delphi中IEVision 中OCR功能 delphi10.3下ImageEn_12的安装与使用 Gif123.rar TTextEditor：一款强大的Delphi文本编阅读全文

posted @ 2024-10-31 14:43 涂磊阅读(179) 评论(0) 推荐(0)

Delphi10.3下SimpleGraph v2.92流程图的安装，使用

摘要：02]增加四种自定义图形03]导出为jpg格式04]导出为PNG格式，并轻度汉化通过百度网盘分享的文件：SimpleGragh-EditorV5.rar链接：https://pan.baidu.com/s/1yBxJVwZx-pCXWAVdj7TanA 提取码：13f3 01]下载和安装02]双阅读全文

posted @ 2024-10-31 10:24 涂磊阅读(118) 评论(0) 推荐(0)

delphi pas控件安装

摘要：第一步：点击“ File”－“ New ”菜单中的“ Package – Delphi for Win32”，新建一个控件包。第二步：选中右边“ Project Manager ”中“ Contains ”文件夹，点击鼠标右键，在弹出的菜单中选择“ Add”。第三步：在 Add 对话框中，点击“ 阅读全文

posted @ 2024-10-31 09:43 涂磊阅读(146) 评论(0) 推荐(0)

Delphi10.3中的TreeView1的使用说明

摘要：mySQL数据库中，所有的DataBase及其对应的Tables;最终效果：先在设计窗口，新建根结点再添加层级为Level1级的数据库名DataBases; var RootNode : TTreeNode; //先建立一个TREEVIEW使用的结点对象 begin FDQuery1.Activ 阅读全文

posted @ 2024-10-29 14:34 涂磊阅读(214) 评论(0) 推荐(0)

Delphi10.3的PageControl1使用方法大全

摘要：00]默认TabSheet表头的宽度和高度01]用代码动态添加TabSheet02]动态双击任意一个标签，即关闭被双击的标签TabSheet03]自画TabSheet04]重命名TabSheet05]添加关闭按钮 00]默认TabSheet表头的宽度和高度动态改变 TabSheet表头的宽度和高阅读全文

posted @ 2024-10-25 10:53 涂磊阅读(526) 评论(0) 推荐(0)

Delphi10.3里Memo1的查找--替换---功能Action实现

摘要：添加一个ActionList1,添加 StandardAction里的Search里的Search里的SearchFind 假设Memo1的PopupMenu为PopupMenu1 在里的一个新建空白菜单设置为SearchFind1 Memo1的HideSelection一定要设为False 按下C 阅读全文

posted @ 2024-10-21 14:43 涂磊阅读(58) 评论(0) 推荐(0)

Delphi10.3 RadioGroup1多选一的组件用法

摘要：https://www.cnblogs.com/jijm123/p/14237063.html 1]添加RadioButton项目也可用代码添加 RadioGroup1.Items.Add('Delphi7'); RadioGroup1.Items.Add('Delphi10.3'); 而不是添加阅读全文

posted @ 2024-10-19 18:30 涂磊阅读(216) 评论(0) 推荐(0)

Delphi10.3 之 TLinkLabel使用

摘要：https://www.cnblogs.com/del/archive/2008/08/13/1267175.html uses ShellAPI; procedure TForm1.FormCreate(Sender: TObject); begin LinkLabel1.Caption := ' 阅读全文

posted @ 2024-10-19 18:07 涂磊阅读(70) 评论(0) 推荐(0)

listbox1.ItemAtPos方法

摘要：procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var s:tpoint; begin s.X:=x; s.Y:=y; Label1.Caption:= listbox1. 阅读全文

posted @ 2024-10-18 16:25 涂磊阅读(25) 评论(0) 推荐(0)

Delphi10.3控件水平，垂直均匀排列

摘要：用鼠标框选中控件，再右键先水平左对齐，再垂直间隔相同同理，水平均匀排列也一样，先顶对对齐再水平间隔相同阅读全文

posted @ 2024-10-16 15:40 涂磊阅读(44) 评论(0) 推荐(0)

直接在当前窗口使用控件新属性，如button添加颜色，memo关键字着色

摘要：直接在当前窗口使用控件新属性，如button添加颜色，memo关键字着色,不用新建一个单元，或者控件，再来引用使用 https://www.cnblogs.com/zhangzhifeng/p/9072835.html Delphi自写组件：可设置颜色的按钮 https://www.cn 阅读全文

posted @ 2024-10-16 14:36 涂磊阅读(64) 评论(0) 推荐(0)

Delphi 10.3中CheckListBox1的使用

摘要：var i:integer; begin for I := 0 to CheckListBox1.Count -1 do if CheckListBox1.Checked[i] // 左边的 Check框是否勾中 then showmessage(CheckListBox1.Items[i] ) 阅读全文

posted @ 2024-10-14 09:52 涂磊阅读(396) 评论(0) 推荐(0)

Delphi10.3中memo1关键字自动填充完成AutoComplete

摘要：通过网盘分享的文件：DelphiAutoComplete.rar 链接: https://pan.baidu.com/s/1l4oZIeS3SJgn5P8aLAjyBA 提取码: rrwz uses System.StrUtils; //字符串函数声明两个全局变量 var aStringList: 阅读全文

posted @ 2024-09-25 14:43 涂磊阅读(64) 评论(0) 推荐(0)

第三方控件-语法高亮-SynEdit在Delphi10.3上的安装和使用

摘要：https://www.cnblogs.com/Thenext/p/15907248.html 还有个 SynEditStudio V5.8 fix 2 完整版，只支持Delphi7,不支持 Delphi10.3https://www.2ccc.com/article.asp?articleid=4 阅读全文

posted @ 2024-09-08 21:00 涂磊阅读(547) 评论(0) 推荐(0)

随笔分类 - Delphi2010