вообщем я придумал
спасибо всем
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);
все оказалось просто
Комментарии
Можно попробовать обрабатывать событие OnMouseOverObject
спасибо всем
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);
все оказалось просто