11-04-2019, Saat: 22:21
(11-04-2019, Saat: 18:33)mrmarman Adlı Kullanıcıdan Alıntı: Hemen örnekleyelim...Teşekkürler hocam. Oldu.
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;
Yazılımcı, kahveyi koda çeviren bir organizmadır.