procedure TfrxDesignerWorkspace.RealHintShow(var Msg: TCMHintShow);
var
  Header, PropText: String;
  HMemoView: TfrxCustomMemoView;
begin
  if not (FLastObjectOver is TfrxCustomMemoView) then Exit;
  HMemoView := TfrxCustomMemoView(FLastObjectOver);
  if HMemoView.HasOutboundContent then
  begin
    Header := frxResources.Get('obText');
    PropText := HMemoView.Text;

    Msg.HintInfo.HintStr :={$ifdef fpc} Header + LineEnding + {$endif}PropText;
    {$ifndef fpc}Msg.HintInfo.HintWindowClass := TDesgnHintWindow;
    Msg.HintInfo.HintData := TDesgnHintData.Create('', Header, False, HMemoView);{$endif}
    Msg.HintInfo.HideTimeout := MaxInt;
  end;
end;