제가 6.0을 쓰고 있어서.. 거기서는 문제가 없네요
1. Tools의 MarkTip을 활용한 방법
Tools에 MarkTip을 추가해서 테스트 해보세요
뭐 설정이야 보면 알것이고..
2. MouseEnter Leave 사용하는 방법
procedure TSeriesMouseEnter.Series1MouseLeave(Sender: TObject);
begin
Label1.Caption:='';
end;
procedure TSeriesMouseEnter.Series1MouseEnter(Sender: TObject);
var tmp : TChartSeries;
clicked : Integer;
begin
tmp:=Sender as TChartSeries; // Sender is the Series
// Obtain point index under mouse cursor
clicked:=tmp.GetCursorValueIndex;
// Show Series name and point index and value
Label1.Caption:='Series: '+tmp.Name+
' point: '+IntToStr(clicked)+
' value: '+tmp.YValues.ToString(clicked);
end;
1. Tools의 MarkTip을 활용한 방법
Tools에 MarkTip을 추가해서 테스트 해보세요
뭐 설정이야 보면 알것이고..
2. MouseEnter Leave 사용하는 방법
procedure TSeriesMouseEnter.Series1MouseLeave(Sender: TObject);
begin
Label1.Caption:='';
end;
procedure TSeriesMouseEnter.Series1MouseEnter(Sender: TObject);
var tmp : TChartSeries;
clicked : Integer;
begin
tmp:=Sender as TChartSeries; // Sender is the Series
// Obtain point index under mouse cursor
clicked:=tmp.GetCursorValueIndex;
// Show Series name and point index and value
Label1.Caption:='Series: '+tmp.Name+
' point: '+IntToStr(clicked)+
' value: '+tmp.YValues.ToString(clicked);
end;
그럼 이만