See TzFormDesigner.OnDrawControl Event.

TDrawControlEvent = procedure (Sender: TObject; Control: TControl; DC: HDC) of object;