| | | | | |

2026年3月21日

摘要： procedure TMainForm.ToolButton18Click(Sender: TObject); var FoundPos: Integer; SearchText: string; StartPos: Integer; SearchOptions: TSearchTypes; beg 阅读全文

posted @ 2026-03-21 14:02 涂磊阅读(27) 评论(0) 推荐(0)

2026年3月14日

delphi10.3中Tmemo中某些文本显示下划线

摘要： type TMemo = class(vcl.stdctrls.TMemo) private FStartChar, FEndChar: Integer; procedure WMPaint(var Msg: TWMPaint); message WM_PAINT; public procedure 阅读全文

posted @ 2026-03-14 16:53 涂磊阅读(21) 评论(0) 推荐(0)

2026年3月7日

delphi的TReeView支持鼠标拖动节点

摘要： 1】 procedure TForm1.TreeViewDragDrop(Sender, Source: TObject; X, Y: Integer); var TargetNode, DragNode: TTreeNode; begin TargetNode := TreeView.GetNod 阅读全文

posted @ 2026-03-07 17:53 涂磊阅读(31) 评论(0) 推荐(0)

2026年2月22日

cnPack里MarkDown里RTF显示

摘要：通过网盘分享的文件：tulaterMarkDown.rar链接: https://pan.baidu.com/s/10y_YXjqZiI132S3SijpQRQ?pwd=yd7m 提取码: yd7m C:\Users\Administrator\Downloads\cnvcl_20260101\cn 阅读全文

posted @ 2026-02-22 14:36 涂磊阅读(20) 评论(0) 推荐(0)

2026年2月20日

11]delphi中 RichEdit1设置行距

摘要： uses Winapi.Messages, Winapi.Richedit; procedure TForm1.SetRichEditLineSpacing; var Para: TParaFormat2; begin // 初始化结构体大小 Para.cbSize := SizeOf(Para); 阅读全文

posted @ 2026-02-20 15:47 涂磊阅读(49) 评论(0) 推荐(0)