Сори первый вопрос не так понял=)
Кинь на TChart компонент TLabel.
Установи свойства Transparent = True.
В событие TChart.OnMouseMove напиши:
YouLabelName.Show;
YouLabelName.Caption := 'X:'+IntToStr(X)+',Y:'+IntTostr(Y);
Если TChart лежит на Форме не полностью то добавь обработчик
OnMouseMove - Близлежащим компоонентам на которые падает курсор
мышки напрмер:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
YouLabelName.Hide;
end;
|