| | | | | |

随笔：585 文章：2 评论：76 阅读： 34万

随笔分类 - Delphi2010

delphi DBNavigator1 删除前后事件

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

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

TMemo 关键字代码着色

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

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

TObjectList;在Contnrs单元

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

posted @ 2024-04-23 14:27 涂磊阅读(11) 评论(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 涂磊阅读(17) 评论(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 涂磊阅读(54) 评论(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 涂磊阅读(28) 评论(0) 推荐(0) 编辑

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

摘要：通过网盘分享的文件：connectnion学习V44.rar链接: https://pan.baidu.com/s/1CneGD_fqTXsfPXhG-7PydA 提取码: a57v listbox2.Items.Add(FDMetaInfoQuery1.FieldByName('COLUMN_NA 阅读全文

posted @ 2024-04-19 17:07 涂磊阅读(142) 评论(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 涂磊阅读(14) 评论(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 涂磊阅读(74) 评论(0) 推荐(0) 编辑

LIstbox1双击编辑，回车提交修改

摘要：拖一个LIstbox1和Edit2到界面上 procedure TForm8.ListBox1DblClick(Sender: TObject); var ItemIndex: Integer; begin ItemIndex := ListBox1.ItemIndex; // 获取双击的项 if 阅读全文

posted @ 2024-04-19 08:43 涂磊阅读(33) 评论(0) 推荐(0) 编辑

异常显示在Memo1里，而不是弹出对话框

摘要：try except on E: Exception do begin OutResltMemo.Clear; OutResltMemo.Text := E.Message; end; end; 阅读全文

posted @ 2024-04-18 08:40 涂磊阅读(23) 评论(0) 推荐(0) 编辑

delphi中Memo1点号下拉ListBox1选择完成文本填充

摘要：delphi中Memo1下拉ListBox2选择完成文本填充拖一个Memo1下拉ListBox2到界面上，假设ListBox2，里已加载列名最终效果： Memo1里输入.点号,带出ListBox2，选择好列名，回车，将点号和列名输入到Memo1原位置 procedure TForm8.Memo1 阅读全文

posted @ 2024-04-17 18:20 涂磊阅读(38) 评论(0) 推荐(1) 编辑

想在Delphi的Memo1控键的光标处插入一字串，如何实现？

摘要：Memo1.SelText := '可以加字符串'; 就是如此简单阅读全文

posted @ 2024-04-17 15:16 涂磊阅读(49) 评论(0) 推荐(0) 编辑

FDquery1可在设计的时候，直接执行SQL语句

摘要：FDquery1可在设计的时候，直接执行SQL语句前提是FDConnection1已连接,双击FDQuery1 FDquery1Active无所谓true,false 阅读全文

posted @ 2024-04-14 09:33 涂磊阅读(31) 评论(0) 推荐(0) 编辑

delphi10.3的Memo1可见第几行

摘要：ListBox2.Top:=(memo1.CaretPos.Y-Memo1.Perform(EM_GETFIRSTVISIBLELINE,0,0)+1)*abs(memo1.Font.Height)+8；阅读全文

posted @ 2024-03-28 10:33 涂磊阅读(31) 评论(0) 推荐(0) 编辑

StringGrid1做数据控件的基本常用操作

摘要：procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); var R: TRect; org: TPoint; begin if ARow>0 then 阅读全文

posted @ 2024-03-21 10:39 涂磊阅读(111) 评论(0) 推荐(0) 编辑

FDMetaInfoQuery1查询表结构详细信息

摘要：官方说明 https://docwiki.embarcadero.com/RADStudio/Sydney/en/Querying_Metadata_(FireDAC) https://docwiki.embarcadero.com/RADStudio/Sydney/en/Working_with_ 阅读全文

posted @ 2024-03-20 09:35 涂磊阅读(30) 评论(0) 推荐(0) 编辑

Delphi10.3FireDAC的FDConnection1可直接书写SQL语句,所有表名和表结构字段

摘要：https://docwiki.embarcadero.com/RADStudio/Sydney/en/Querying_Metadata_(FireDAC) 不必这样麻烦也可以代码里直接运行SQL语句 if FDconnection1.Connected then FDConnection1. 阅读全文

posted @ 2024-03-19 09:19 涂磊阅读(160) 评论(0) 推荐(0) 编辑

Delphi10.3自带FireDAC Explorer工具

摘要：设置SQLite文件连接写SQL语句键盘光标一定要在语句里，才会出现绿箭头执行 CREATE TABLE MyTable(姓名 string(10), 语文 Integer, 数学 Integer, 英语 Integer) 可以把SQL窗口拖到外面显示执行SQL语句后，要手动刷新，阅读全文

posted @ 2024-03-18 15:40 涂磊阅读(82) 评论(0) 推荐(0) 编辑

Delphi10.3主从表步骤(18)

摘要：链接：https://pan.baidu.com/s/15gJJrljsYniqe6f0jwxpBQ 提取码：1sdn 主从表SQLite纯代码实现链接：https://pan.baidu.com/s/1_7BFzTMq1p8a_HXZ6sQD0g 提取码：2xvb 1.基本设置 2.在FDQue 阅读全文

posted @ 2024-03-17 20:13 涂磊阅读(82) 评论(0) 推荐(0) 编辑