hint в FastReport

Комментарии

• Grey

  March 2004 отредактировано 02:55

  nomad
  Можно попробовать обрабатывать событие OnMouseOverObject
• nomad

  March 2004 отредактировано 02:55

  вообщем я придумал
  спасибо всем
  procedure TForm2.frReport1MouseOverObject(View: TfrView; var Cursor: TCursor);
  
  begin
  if View.Name = 'Memo8' then
  begin
  Cursor := crHelp;
  h.Hide;
  H.ActivateHint(Rect(view.x,view.y,view.x+view.dx,view.y+view.dy),view.Memo.Text);
  end
  else
  h.ReleaseHandle;
  end;
  
  ну и где-нибудь создать H:=THintWindow.Create(owner);
  все оказалось просто