On Mon, Jul 27, 2015 at 6:31 AM, Xiangrong Fang <xrf...@gmail.com> wrote:
> 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 > > You can if the canvas is a TControlCanvas. Luckly TGraphicControl.Canvas is a TControlCanvas, thus one can do e.g.: function GetCanvasOwner(ACanvas: TCanvas): TControl; begin Result := (ACanvas as TControlCanvas).Control; end; Regards, Flávio
-- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus