- 博客(3)
- 收藏
- 关注
RSS订阅原创 RichView的几个封装函数(插入文本和图片)
//移动光标到最后procedure RichViewMoveCaretToEnd(RichEdit: TRichViewEdit);var ItemNo, Offs: Integer;begin ItemNo := RichEdit.ItemCount-1; if ItemNo > 0 then begin Offs := RichEdit.GetO
2012-03-07 10:30:27
4399
原创 RichView中插入动态Gif图像注意事项
以下是封装的一个函数：procedure RichViewAddPicture(RichEdit: TRichViewEdit; const TagStr: string; Stream: TMemoryStream; IsGif: Boolean);var LGraphic: TGraphic;begin if IsGif then begin LG
2012-03-07 10:26:03
2504
2
转载 Delphi中模态窗口切换时隐藏问题的解决办法
问题 现象： 弹出模态窗体，切换到Window其他窗口，再回到程序界面，发现界面无法点击，模态窗口被遮盖在后边了解决办法： TForm1 = class(TForm) protected procedure CreateParams(var Params: TCreateParams); overr
2012-03-01 10:15:37
3766
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人