курсор мыхи

← →
hahol_64_rus (2007-10-28 14:35) [0]

мастра помагите
пожаааааалста
вот тут такое дело
мне надо узнать над какой строкой листбокса стоит курсор мыши
или эт не вазможн

← →
engine © (2007-10-28 14:48) [1]

> [0] hahol_64_rus (28.10.07 14:35)

ItemAtPos тебе в руки

← →
hahol_64_rus (2007-10-28 14:59) [2]

ItemAtPos(Pos:Tpoint, Existing:boolean):integer;
так я и задовал вопрос как определить кординатты над которой
находится курсор
как определить pos

← →
homm © (2007-10-28 15:02) [3]

> [2] hahol_64_rus (28.10.07 14:59)
> так я и задовал вопрос

Не ври.

> как определить кординатты над которой
> находится курсор

GetCursorPos

← →
hahol_64_rus (2007-10-28 15:12) [4]

да не то
мне короче над
даеца листбокс
премещаешь на нем курсор
например если курсор над первой строчкой то
в хинт должно вывести 1 если над второй то 2 и тд

> [4] hahol_64_rus (28.10.07 15:12)

OnMouseMove + F1
ItemAtPos + F1

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption := IntToStr(ListBox1.ItemAtPos(Point(X, Y), TRUE)+1);
end;

курсор мыхи Найти похожие ветки