[Intripio]

Сообщение от NumLock

смещение в пикселях по оси X:

Код:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    procedure Image1Click(Sender: TObject);

procedure TForm1.Image1Click(Sender: TObject);
var
  p: TPoint;
begin
  GetCursorPos(p);
  Windows.ScreenToClient(Handle, p);
  Label1.Caption:=IntToStr(p.X-28-Image1.Left);
end;

28 - смещение начала координат внутри картинки

Спасибо! Тогда еще такой вопрос:
Можно ли сделать так, чтобы пользователь при НАВЕДЕНИИ на саму кривую графика видел точку куда он нажимает? Скажем пускай эта точка на графике будет красным цветом...Спасибо еще раз!