Robim jeden SW v Borland Delphi a potreboval by som vyriesit jeden problem.
Jedna sa mi o to, ze v objekte
StringGrid1 mam ulozene ciselne hodnoty ktore vypisujem do grafu
Chart1. Aby bola lepsia orientacia v tabulke, tak by som chcel urobit prepojenie medzi tymito dvoma komponentmi. A to takym sposobom, ze pri kliknuti na danu hodnotu v grafe by sa mi oznacila tato hodnota v tabulke (StringGrid1.Col).
Tento problem riesim tak, ze graf mi vyvola udalost
Chart1MouseDown a znej vycitam suradnice kde sa nachadza mys a prepocitam z dlzky grafu a dany vysledok je suradnica v tabulke a tym sa na nu prepnem. Problem je ale v tom, ze graf ma okraje a dalej by som ho chcel posuvat a opat by sa to cele len skomplikovalo.
Ak mate nejaku jednoduchsiu metodu, prosim dajte mi vediet.
Program:
Kód:
procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
x_os: integer;
begin
x_os := Round ( X/Chart1.Width * max );
StringGrid1.Col := x_os;
end;
![[Delphi] Interaktivny graf [Delphi] Interaktivny graf](http://i44.tinypic.com/2vxeiac.jpg)