[Решено] "Актуальный" hint

[kotompazb]

Есть TMemo. Необходимо, чтобы при движении мыши над ним старый hint (если он есть) скрывался, а при остановке появлялся новый, с актуальным содержимым. И уже висел, пока мышь снова не придет в движение.
Что-то вроде того, как это работает в самом редакторе Lazarus, но попроще (там hint не исчезает при движении мыши над одним и тем же словом).
Как сие можно реализовать?
Спасибо.

[скалогрыз]

ну и ппц какой-то. До чего API неочевидный.

Вот у меня под виндой заработал такой код

Код: Выделить всё

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Application.CancelHint;
  Application.ActivateHint( Mouse.CursorPos );
  Memo1.Hint:=FormatDateTime( 'hh:nn:ss', now); // у Memo1.ShowHint:=true через инспектор
end;


Но мягко говоря - он хакерский! (если CancelHint - это понятно, то ActiveHint() там идёт только чтобы "восстановить" функционал контрола, см ниже.)

А вот если сделать так

Код: Выделить всё

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Application.CancelHint; // или так Application.HideHint;
  Memo1.Hint:=FormatDateTime( 'hh:nn:ss', now); // у Memo1.ShowHint:=true через инспектор
end;


то хинт на мемке больше не появится вообще.

[kotompazb]

Вот и я тоже без ActiveHint() пробовал... не появлялся... вообще...
Буду пробовать. Спасибо.
Проверил. Работает. Сам бы еще долго искал...
Спасибо еще раз.