OnTextObjectClick Event

Applies to
TWPPreview

Declaration
TTextObjectClickEvent = Procedure(Sender: TWPCustomRtfEdit; pobj: PTTextObj; obj: TWPObject; var ignore: Boolean) of object;

Description
This even is triggered when the user clicks on an image or code object.

Example:
procedure TForm1.WPRichText1TextObjectClick(Sender: TWPCustomRtfEdit;
  pobj: TWPTextObj; obj: TWPObject; var ignore: Boolean);
begin
   ShowMessage(  
     WPTextObjTypeNames[pobj.ObjType] + #13 + #10 +
     pobj.AGetWPSS );
   ignore := TRUE;
end;

Category
Image Events

Copyright (C) by WPCUBED GmbH - Munich
http://www.wpcubed.com