Главная страница
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.018 c
9-12590
arcoant
2002-11-27 15:23
2003.05.05
DelphiX


14-12897
asafr
2003-04-16 11:16
2003.05.05
Интересно. А почему таким успехом пользуются темы о религии?


1-12760
10-0-
2003-04-22 00:07
2003.05.05
Интересная проблема с Richedit


14-12864
malkolinge
2003-04-16 17:28
2003.05.05
А я иду завтра на Борланджовскую конференцию!


1-12750
Beglec
2003-04-20 08:13
2003.05.05
MDI Форма