В чем ошибка?

← →
anod © (2002-04-18 21:22) [0]

procedure TForm1.DirListMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var s:string; begin if DirList.GetItemAt(x,y).Index<>-1 then s:=DirList.GetItemAt(x,y).Caption; //Вот здесь выдает ошибку //Access violation ..... DirList.Hint:=trim(copy(s,5,length(s))); end;

← →
ION T © (2002-04-18 21:39) [1]

Ты в дебаггере глянь шо там за координаты в х,у (может они относительны к экрану или форме и надо пересчитывать)

← →
anod © (2002-04-18 21:44) [2]

Раньше был ListBox - все работало, а это переделал на ListView
Был код:
pt.x:=x; pt.y:=y; if DirList.ItemAtPos(pt,true)<>-1 then s:=DirList.Items[DirList.ItemAtPos(pt,true)]; DirList.Hint:=trim(copy(s,5,length(s)));

← →
anod © (2002-04-18 21:48) [3]

Ну то что не к экрану это точно, а к форме?

← →
anod © (2002-04-18 21:49) [4]

Нет, вроде все нормально

Дурак я;)

procedure TForm1.DirListMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var s:string; begin if DirList.GetItemAt(x,y)<> nil then s:=DirList.GetItemAt(x,y).Caption; //

Спасибо, я просто взял из ListBox"a и переписал...

В чем ошибка? Найти похожие ветки