Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.05;
Скачать: CL | DM;

Вниз

Координаты указателя мыши в пределах Image   Найти похожие ветки 

 
Cooper ©   (2003-04-23 21:57) [0]

Подскажите, как отследить?


 
Song ©   (2003-04-23 22:00) [1]

TImage.onMouseMove


 
Yanis ©   (2003-04-23 22:19) [2]

Если отсчитывать от Верхнего левого угла TImage как от начало координат, то получить координаты можно так:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var IX,IY:Integer;
begin
IX:=x-Image1.Left;
IY:=y-Image1.Top;
Form1.Caption:="x="+IntToStr(IX)+"|"+"y="+IntToStr(IY);
end;

А если нужно считать координаты от левого верхнего угла формы, когда мышь проходит на TImage, то координаты считаются очень просто:

Нужно сделать два таких оператора:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var IX,IY:Integer;
begin
IX:=x+Image1.Left;
IY:=y+Image1.Top;
Form1.Caption:="X="+IntToStr(IX)+"|"+"Y="+IntToStr(IY);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Caption:="X="+IntToStr(x)+"|"+"Y="+IntToStr(Y);
end;



Страницы: 1 вся ветка

Текущий архив: 2003.05.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
6-12848
kofman
2003-03-07 23:51
2003.05.05
Как найти зеркало данного сайта?


3-12655
AleksandrKu
2003-04-16 12:11
2003.05.05
StoredProc как добавить записи в 2 таблицы


1-12815
Ик сик
2003-04-22 16:48
2003.05.05
Библиотека ABC


1-12762
R
2003-04-22 04:05
2003.05.05
ScrollBars


4-12963
Alex Slater
2003-03-06 11:49
2003.05.05
ListBox