|
导读通过该方法你可以随心所欲地在memo或richedit里作图了！呵呵！ function Tform1.memopain:boolean; var MyCanvas: TControlCan... 通过该方法你可以随心所欲地在memo或richedit里作图了！呵呵！ function Tform1.memopain:boolean; var MyCanvas: TControlCanvas; Begin MyCanvas:=TControlCanvas.Create; Mycanvas.control:=memo1;//想在memo1上作画 With Mycanvas do Begin //这里可以更改为你的作图程序 Brush.Color := clBtnFace; MoveTo ( 33, 0 ); Brush.Color := clWhite; LineTo ( 33, ClientHeight ); end; End; |
温馨提示：喜欢本站的话，请收藏一下本站！
本站发布的Win7纯净版系统、Win10纯净版和XP纯净版系统仅为个人学习测试使用，请在下载后24小时内删除，不得用于任何商业用途，否则后果自负，请支持购买微软正版软件！
本站所有资源全部来自于网络资源,如侵犯到您的权益,请及时通知我们(peng896066052@126.com),我们会及时处理.
Copyright © 2018-2020 雨林木风下载站
