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

摘要： 引用CnPack组件 中的 CnRichEdit, private FRender: TCnRichEditRender; //////////////////////////////////////////////// procedure TFormRender.FormCreate(Sender 阅读全文

摘要： 放置组件：在窗体上放置一个 TRichEdit (如 RichEdit1)、一个 TButton (如 Button1) 和一个 TFindDialog (如 FindDialog1)。 设置按钮事件：在按钮的 OnClick 事件中调用查找对话框。 procedure TForm1.Button1 阅读全文

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

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