| | | | | |

2026年2月16日

摘要： uses Winapi.RichEdit, ShellAPI; public procedure WndProc(var Msg: TMessage); override; procedure TMainForm.FormCreate(Sender: TObject); var mask: Word 阅读全文

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

06]delphi10.3中richedit中文本背景颜色

摘要： uses Winapi.RichEdit; procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor); var Format: CHARFORMAT2; begin FillChar(Format, SizeOf(Format), 阅读全文

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

05]delphi10.3中richedit中删除线

摘要： uses Winapi.RichEdit; const CFE_STRIKEOUT = $0008; CFM_STRIKEOUT = $0008; EM_SETCHARFORMAT = WM_USER + 68; SCF_SELECTION = $0001; // 应用删除线 procedure T 阅读全文

posted @ 2026-02-16 13:48 涂磊阅读(25) 评论(0) 推荐(0)

delphi10.3中UpDown1使用

摘要：通过Associate与其他控件相关连与spinButton类似阅读全文

posted @ 2026-02-16 13:34 涂磊阅读(21) 评论(0) 推荐(0)

04]RichEdit的上标和下标,Delphi10.3

摘要： uses Winapi.RichEdit; // yOffset values type TCharacterFormat = (CFM_Superscript, CFM_Subscript, CFM_Normal); procedure RE_SetCharFormat(RichEdit: TRi 阅读全文

posted @ 2026-02-16 11:29 涂磊阅读(22) 评论(0) 推荐(0)