Hint verschwindet nicht

[Jonny-Flash]

Hallo Frank,
das klappt jetzt wunderbar .

Wieso hab ich das nicht schon vorher beim Suchen gefunden.

Hier nochmal meine Lösung, damit der Hint verschwindet:

Delphi-Quellcode:

procedure TMain.sgDispMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var strOldHint : String;
begin
  strOldHint := sgDisp.Hint;

// ....
// ....
// ....

  if (strOldHint <> sgDisp.hint) then
    Application.CancelHint;
end;

Nochmals vielen Dank
Jonny.