[Lazarus] Owner of a TCanvas

[Xiangrong Fang]

Hi There,

Can I somehow get the object which owns a Canvas? e.g.:

function GetCanvasOwner(ACanvas: TCanvas): TObject;
begin
   Result := ACanvas.Owner;
end;
pb := TPaintBox(GetCanvasOwner(pb.Canvas);

Thanks!
Xiangrong

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus