随心所欲地在memo或richedit里作图

来源： 作者： 出处：巧巧读书 2006-10-29 进入讨论组

• 关 键 词：

精华网络内容 :http://www.qqread.com/network/

通过该方法你可以随心所欲地在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; 

进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：随时随刻知道自己的IP

较新的文章：谈Delphi编程中资源文件的应用