Thema: Delphi einfache TChart Sache...

Einzelnen Beitrag anzeigen

Benutzerbild von mikhal
mikhal

Registriert seit: 11. Sep 2003
Ort: Linz am Rhein
796 Beiträge
 
Delphi 11 Alexandria
 
#7

Re: einfache TChart Sache...

  Alt 15. Dez 2004, 05:33
ValueIndex stellt nicht den Wert auf der X-Achse dar sondern ist der n-te Wert auf deiner x-Achse. Um den Wert auf der x-Achse zu bestimmen.

Schau dir mal folgendes Beispiel an. Es verlangt einfach nur eine TChart auf einem Form:

Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Series1.Add(0.5, '1,5', clRed);
  Series1.Add(1.2, '2,5', clRed);
  Series1.Add(2.1, '3,2', clRed);
end;

procedure TForm1.Chart1ClickSeries(Sender: TCustomChart;
  Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  dYWert: Double;
  iNterWert: Integer;
  dXwert: Double;
begin
  iNterWert := ValueIndex;
  dYWert := Series.YValue[ValueIndex];
  dXWert := StrToFloat(Series.XLabel[ValueIndex]);
  ShowMessage(Format('Y-Wert ist %g an n-ter (%d) Position auf der x-Achse,%sder x-Wert beträgt %g',
                   [dYWert, iNterWert, #13#10, dXWert]));
end;
Grüße
Mikhal
Michael Kraemer
Computer erleichtern die Arbeit...
...und die Erde ist eine Scheibe!
  Mit Zitat antworten Zitat