在delphi原有控件基础上画图

Posted 2020-08-29 不能富贵难成大器皆因懒， 胸无大志庸庸碌碌只为闲。

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;