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]
> с чего ты взял что там может появится отрцательное значение?
>

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

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

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

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

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

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

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