Mit dem event OnTextObjectMouseUp kann man das machen.
Code
procedure TForm5.WPRichText1TextObjectMouseUp(Sender: TWPCustomRtfEdit;
pobj: TWPTextObj; obj: TWPObject; Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
begin
if (obj<>nil) and (obj.GetRTFDataBlock<>Sender.ActiveText) then
begin
obj.Edit;
end;
end;
Oder wpObjectSelection in der property EditOptions deaktivieren.