| | | | | |

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 涂磊阅读(59) 评论(0) 推荐(0)

2024年5月3日

(25)SynEdit1语法高亮SynSQLSyn1

摘要：阅读全文

posted @ 2024-05-03 11:58 涂磊阅读(68) 评论(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 涂磊阅读(83) 评论(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 涂磊阅读(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)