| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Мышка над TImage, определить координаты над TImage
Layner © (2007-05-03 11:45:00)Есть способ, но он не точен:
StatusBar1.Panels[0].Text:=IntToStr(Mouse.CursorPos.X-fmain.Left-Image1.Left)+'*'+IntToStr(Mouse.CursorPos.Y-fmain.Top-Image1.Top);
Не учитывается у формы Главное меню, полоса окна... Подскажите, как правильно определить координаты мышки над TImage. Т.е. левый верхний пиксель имеет координаты 0/0
ANB (2007-05-03 13:15:00) [1]
> Layner © (03.05.07 13:06) [3]
Только учти, что событие MouseMove срабатывает не для каждого пикселя, а кусочками.
Layner (2007-05-03 13:06:00) [2]
PZ (03.05.07 11:54)
Точно, благодарю!!! что то до самого не дошло, строю тут огород :)
Virgo_Style (2007-05-03 12:37:00) [3]
.ScreenToClient?
PZ (2007-05-03 11:54:00) [4]А такой способ не устаивает ?
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Caption := IntToStr(X)+' '+IntToStr(Y);
end;
| |
