Code: Select all
procedure Tbubble1f.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var i: Integer;
begin
i:=Series1.Clicked(X,Y);
if i<>-1 then
TeeGotoURL(Handle,Series1.Labels[i]);
end;
Thank you.
Code: Select all
procedure Tbubble1f.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var i: Integer;
begin
i:=Series1.Clicked(X,Y);
if i<>-1 then
TeeGotoURL(Handle,Series1.Labels[i]);
end;
Narcís Calvet / Development & Support Steema Software Avinguda Montilivi 33, 17003 Girona, Catalonia Tel: 34 972 218 797 http://www.steema.com |
Instructions - How to post in this forum |