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.