Einzelnen Beitrag anzeigen

Benutzerbild von PhilmacFLy
PhilmacFLy

Registriert seit: 20. Jan 2008
Ort: Nürnberg
340 Beiträge
 
FreePascal / Lazarus
 
#1

Problem bei der Hint anzeige

  Alt 22. Sep 2010, 11:48
Delphi-Version: 2005
Hey DP'ler

ich hab ein kleines Problem bei der Hint anzeige auf meinem TChart.
Hier erstmal der Code:

Aufruf über:
Delphi-Quellcode:
procedure TFrm_Messung.Ch_MessungMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
ShowSeriesHint(Mouse.CursorPos.X ,Mouse.CursorPos.Y);
end;
Dann der eigentliche Code
Delphi-Quellcode:
procedure Tfrm_messung.ShowSeriesHint(X,Y:Integer);
begin
  Ch_Messung.Hint := 'Dies ist ein Hinweis';
  //ShowHint auf True setzen
  if Ch_Messung.ShowHint = False then
     Ch_Messung.ShowHint := True;
  //Col und Row Position lesen
  if (Mouse.CursorPos.X <> lastX) or (Mouse.CursorPos.Y <> lastY) then
     begin
     Application.CancelHint;
     Lastx := Mouse.CursorPos.X;
     Lasty := Mouse.CursorPos.Y;
     end;
end;
Das Problem ist nun das der Hint, reproduzierbar, immer erst auftaucht, wenn ich auf das Chart klick, und eigentlich sollte er ja erscheinen wenn man drüber fährt. Oder hab ich irgendwo einen Denkfehler?
Philipp N.
"Programmiern ist wie küssen:
Mann kan darüber reden, mann kann es beschreiben,
aber man weiss erst, was es bedeutet,
wenn man es getan hat"
  Mit Zitat antworten Zitat