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

DrawGrid1自画图标和文本

摘要：通过网盘分享的文件：DrawGrid.rar链接: https://pan.baidu.com/s/1ihZ1wFkPEVxr4v02dgMFVA 提取码: 81e https://www.packtpub.com/en-us/product/delphi-cookbook-second-editi 阅读全文

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

达梦数据库在Delphi10.3上的安装与连接

摘要：select * from TABLE_1 查询其他模式内的表，前面加上模式名 SELECT * from "DMHR"."CITY" 阅读全文

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

ListBox自画

摘要：https://www.packtpub.com/en-us/product/delphi-cookbook-second-edition-9781785287428/chapter/delphi-basics-1/section/using-owner-draw-combos-and-listbo 阅读全文

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

DBGrid之进度条显示

摘要：https://www.packtpub.com/en-us/product/delphi-cookbook-second-edition-9781785287428/chapter/delphi-basics-1/section/customizing-tdbgrid-ch01lvl1sec11 阅读全文

posted @ 2024-08-12 15:18 涂磊阅读(122) 评论(0) 推荐(0)

改变StringGrid1，DBGrid1默认背景色

摘要：1]将DrawingStyle设为gdsClassic 2]设置Color背景颜色值类似地DBGrid1也一样设置背景颜色Delphi10.3的DBGrid美化(03) 阅读全文

posted @ 2024-06-29 13:14 涂磊阅读(46) 评论(0) 推荐(0)

delphi 怎样用字符串叫出对象来用

摘要：TButton(findcomponent('button4')).Click; 阅读全文

posted @ 2024-05-30 14:56 涂磊阅读(48) 评论(0) 推荐(0)

Dellphi10.3菜单项的 hint

摘要：菜单项的 hint 可以用 ”简短|详细说明“ 这种格式，其中详细说明部分可以自动显示在 TStatusBar中，TStatusBar.AutoHint 设置为 True uniGUI学习之自定义Hint(74) 阅读全文

posted @ 2024-05-24 20:59 涂磊阅读(42) 评论(0) 推荐(0)

逗号分开的字符串，统计个数从高到底排序

摘要：uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, System.RegularExpressions, function CompareStrin 阅读全文

posted @ 2024-05-22 15:36 涂磊阅读(40) 评论(0) 推荐(0)

With do结构的作用

摘要：With do结构的作用，除了在少写很多的前置代码，但会影响代码阅读清楚另一个作用是，在动态运行时创建代码时使用，会方便很多，少写一些局部变量的申明代码 procedure TForm13.Button2Click(Sender: TObject); begin with Tbutton 阅读全文

posted @ 2024-05-20 10:25 涂磊阅读(38) 评论(0) 推荐(0)

could not convert variant of type(NULL) into type(OleStr)

摘要：问题出在如果筛选出Column.Field.Value为空值，不能转为 OleStr类型，要用VarToStrDef进行转换。另外一种解决方法 if not varisnull(Column.Field.Value) then ComboBoxEx1.ItemIndex := ComboBo 阅读全文

posted @ 2024-05-20 10:21 涂磊阅读(388) 评论(0) 推荐(0)

Panel 如果设置永远在form的中间

摘要：方法一，panel1大小不会变 procedure TForm4.FormResize(Sender: TObject); begin panel1.Top:= (form4.ClientHeight- panel1.Height)div 2; panel1.Left:= (form4.Client 阅读全文

posted @ 2024-05-13 14:39 涂磊阅读(59) 评论(0) 推荐(0)

delphi DBNavigator1 删除前后事件

摘要：//擦除原来线 procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); begin if button=nbDelete then DBtooLine( clBtnFace,clBtnFac 阅读全文

posted @ 2024-04-28 15:51 涂磊阅读(55) 评论(0) 推荐(0)

TMemo 关键字代码着色

摘要：PosLabel: TLabel;是显示行列号不能有TAB字符，粘贴时去掉，memo1的WantTab设为False 不能有粗体 procedure TForm3.EditPaste1Execute(Sender: TObject); var ClipboardText: string; be 阅读全文

posted @ 2024-04-28 11:33 涂磊阅读(64) 评论(0) 推荐(0)

TObjectList;在Contnrs单元

摘要：TObjectList;在Contnrs单元阅读全文

posted @ 2024-04-23 14:27 涂磊阅读(24) 评论(0) 推荐(0)

容器控件，加入所有TSringGrid

摘要：Type TClassesInfo = Class(TObject) Public TABLENAME: String; IMAGEINDEX: Integer; pCLASS: String; LanguageINDEX: Integer; TotaLPages: Integer; End; 阅读全文

posted @ 2024-04-23 11:46 涂磊阅读(33) 评论(0) 推荐(0)

delphi aStringGrid 动态创建,并设置事件属性

摘要：一定要设置网格父级MyGrid.Parent := Self;，才会显示出来 procedure TForm1.FormShow(Sender: TObject); var MyGrid : TStringGrid ; i,j:integer; begin allStringGridList:= 阅读全文

posted @ 2024-04-23 09:35 涂磊阅读(96) 评论(0) 推荐(0)

Delphi10.3如何将ListBox1项，拖动到右边Memo1当前输入项

摘要：01]ListBox1的DragMode设置为dmAutomatic 02】Memo1的OnDragOver事件和OnDragDrop事件 procedure TForm8.Memo1DragOver(Sender, Source: TObject; X, Y: Integer; State: TD 阅读全文

posted @ 2024-04-22 15:38 涂磊阅读(48) 评论(0) 推荐(0)

Delphi10.3开发的SQLite3的图形操作小软件connectnion学习

摘要：通过网盘分享的文件：connectnion学习V46.rar链接: https://pan.baidu.com/s/1TDGTDntyXCAWf3zLqInjeA?pwd=4mbs 提取码: 4mbs listbox2.Items.Add(FDMetaInfoQuery1.FieldByName(' 阅读全文

posted @ 2024-04-19 17:07 涂磊阅读(243) 评论(0) 推荐(1)

for down to 循环遇到真条件后，要及时退出，否一直到最后一后条件而不是第一个条件

摘要：for down to 循环遇到真条件后，要及时退出，否一直到最后一后条件而不是第一个条件 procedure TForm8.Memo1KeyPress(Sender: TObject; var Key: Char); var i,j:integer; aStr:string; begin 阅读全文

posted @ 2024-04-19 16:31 涂磊阅读(39) 评论(0) 推荐(0)

delphi tStringList 添加另一个 tStringList及不重复项

摘要：aStringList.CommaText:=ListBox1.Items.CommaText; aList:=TStringList.Create; aList.LoadFromFile('keyWord.txt'); aStringList.CommaText:=aStringList.Comm 阅读全文

posted @ 2024-04-19 10:50 涂磊阅读(132) 评论(0) 推荐(0)

随笔分类 - Delphi2010