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"