var C:TControlCanvas; begin C := TControlCanvas.Create; C.Pen.Color := clRed; C.Pen.Width := 3; C.Control := Memo1; C.MoveTo( 20,20 ); C.LineTo( 20, 120 ); C.Free; end;
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/p/6351737.html
var C:TControlCanvas; begin C := TControlCanvas.Create; C.Pen.Color := clRed; C.Pen.Width := 3; C.Control := Memo1; C.MoveTo( 20,20 ); C.LineTo( 20, 120 ); C.Free; end;
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/p/6351737.html