Steema Software - Customer Support Forums
http://216.92.101.67/support/
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
begin
ChartTool1.Style:=smsPointIndex;
end;
procedure TForm1.ChartTool1GetText(Sender: TMarksTipTool; var Text: String);
var ValueIndex: Integer;
begin
ValueIndex:=StrToInt(Text);
Text:='X: ' + FloatToStr(Sender.Series.XValue[ValueIndex]) + #13 + 'Y: ' + FloatToStr(Sender.Series.YValue[ValueIndex]);
end;A safeguard could be implementing the event like this:Hi, i found that topic and i must say that you need to change the event because when you use that tool on All Series, the Sender.Series = Nil
Code: Select all
procedure TForm1.ChartTool1GetText(Sender: TMarksTipTool;
var Text: String);
begin
if Assigned(Sender.Series) then
begin
ValueIndex:=StrToInt(Text);
Text:='X: ' + FloatToStr(Sender.Series.XValue[ValueIndex]) + #13 + 'Y: ' + FloatToStr(Sender.Series.YValue[ValueIndex]);
end;
end;It can be easily found using TeeChart's mouse events combined with series' Clicked method. Anyway, I have added your request to the wish-list (TV52015263) to be considered for inclusion in future releases.So, it should be a good idea to make it nice and add the Index and Series that as been "clicked / moved on" for the hint.