| | | | | |

2026年2月17日

摘要： uses Classes, SysUtils, Clipbrd, Graphics,PNGImage, JPEG; type TClipboardImageFormat = (cfBMP, cfPNG, cfJPEG); procedure SaveClipboardImageToFile(cons 阅读全文

posted @ 2026-02-17 15:44 涂磊阅读(8) 评论(0) 推荐(0)

2026年2月16日

07]Delphi10.3中Richedit中的链接可以点击

摘要： 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 涂磊阅读(8) 评论(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 涂磊阅读(12) 评论(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 涂磊阅读(12) 评论(0) 推荐(0)

delphi10.3中UpDown1使用

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

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