| | | | | |

2024年5月13日

摘要：方法一，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 涂磊阅读(19) 评论(0) 推荐(0) 编辑

2024年5月3日

(25)SynEdit1语法高亮SynSQLSyn1

摘要：阅读全文

posted @ 2024-05-03 11:58 涂磊阅读(40) 评论(0) 推荐(0) 编辑

2024年5月2日

(24)SQLite3Connection1获得所有表名和表结构,列类型

摘要： procedure TForm1.FormCreate(Sender: TObject); begin SQLite3Connection1.Connected:=false; SQLite3Connection1.DatabaseName:='D:\lazarus\project2\testRUN 阅读全文

posted @ 2024-05-02 20:52 涂磊阅读(34) 评论(0) 推荐(0) 编辑

2024年4月28日

delphi DBNavigator1 删除前后事件

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

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

TMemo 关键字代码着色

摘要： PosLabel: TLabel;是显示行列号 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; typ 阅读全文

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