Delphi TChart - Gantt bei Onclick Y-Wert ermitteln

Thema durchsuchen

Ansicht

Themen-Optionen

TChart - Gantt bei Onclick Y-Wert ermitteln

Ein Thema von WIng2005 · begonnen am 22. Mai 2007 · letzter Beitrag vom 23. Mai 2007

Antwort

WIng2005

Registriert seit: 20. Mär 2006
Ort: Thüringen
388 Beiträge

Delphi XE Starter

Re: TChart - Gantt bei Onclick Y-Wert ermitteln

23. Mai 2007, 11:15

Habs gefunden, das XLabel wars....:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMainForm.Ch_Ent_PV1MouseDown(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var

  ClickedGant : Longint;

begin

  if Assigned(Series7) then begin

    ClickedGant := Series7.Clicked(x, y);

    if (ClickedGant <> -1) then

      ShowMessage('Label: '+Series7.XLabel[ClickedGant]);

  end;

end;