Форум: "Основная";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
ВнизКоординаты указателя мыши в пределах 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c