11-04-2019, Saat: 18:33
Hemen örnekleyelim...
With FChart do begin Parent := aControl; Width := aControl.Width - 20; Height := aControl.Height - 20; Left := 10; Top := 10; Anchors := [akLeft, akTop, akRight, akBottom]; Visible := True; // Eklenen Event OnMouseMove := Form1.PieMouseMove; //Bunu Ekledik....
procedure TForm1.PieMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var sIdx : Integer; aPoint : TPoint; begin sIdx := FChart.Series[0].Clicked(X, Y); FChart.ShowHint := sIdx <> -1; if FChart.ShowHint then begin FChart.Hint := FChart.Series[0].ValueMarkText[sIdx]; aPoint.X := X; aPoint.Y := Y - 30; Application.ActivateHint( ClientToScreen( aPoint )); end; end;
Saygılarımla
Muharrem ARMAN
Muharrem ARMAN