Скачать: CL | DM;

ScreenToClient - отрицательные отрицательные значения Point.Y   Найти похожие ветки 

← →
Arm79 ©   (2007-09-07 17:06) [0]

Здравствуйте.

Что то под конец дня думается плохо. Никак не соображу, как сделать следующее.

Есть ListView. Необходимо по двойному клику определить по какому итему и в каком столбце был клик.

Функция GetItemAt принимает значения Х и У в относительных координатах ЛистВью.

Эвент onDblClick не содержит координат

Попытался сделать


var
 tmpPoint : TPoint

begin
 tmpPoint := ListView.ScreenToClient(Mouse.CursorPos);
 ...
end;


Но в tmpPoint.Y пишется отрицательное значение.

А как получить нормальный TPoint c правильными координатами?

---

← →
Efir ©   (2007-09-07 17:16) [1]

ListView.ItemIndex

---

← →
Arm79 ©   (2007-09-07 17:19) [2]

> Efir ©   (07.09.07 17:16) [1]
> ListView.ItemIndex

и в каком столбце был клик.

---

← →
Palladin ©   (2007-09-07 17:34) [3]

с чего ты взял что там может появится отрцательное значение?

procedure TForm1.ListView1DblClick(Sender: TObject);
var
p:TPoint;
begin
p:=ListView1.ScreenToClient(Mouse.CursorPos);
ShowMessage("x:"+IntToStr(p.X)+",y:"+IntToStr(p.Y));
end;

у меня не получилось

---

← →
Arm79 ©   (2007-09-07 17:39) [4]

> Palladin ©   (07.09.07 17:34) [3]
> с чего ты взял что там может появится отрцательное значение?
>

потому что я его через раз вижу ))

---

← →
Palladin ©   (2007-09-07 17:42) [5]

ну значит у тебя

p:=ListView1.ScreenToClient(Mouse.CursorPos);
// тут что то написано, что как то меняет p
ShowMessage("x:"+IntToStr(p.X)+",y:"+IntToStr(p.Y));

---

← →
Arm79 ©   (2007-09-07 17:58) [6]

> Palladin ©   (07.09.07 17:42) [5]
> ну значит у тебя
>...
>// тут что то написано, что как то меняет p
>


чес слово, нет )
до сих пор вижу. код буквально скопировал.

ладно, подумаю, как по другому реализовать.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c