| | | | | |

2024年4月28日

摘要： //擦除原来线 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)