| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

В чем ошибка? [D6, Win2k]

anod ©   (2002-04-18 21:22:00) 

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;

---

anod   (2002-04-18 21:55:00) [1]

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

---

ION T   (2002-04-18 21:53:00) [2]

Дурак я;)

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; //

---

anod   (2002-04-18 21:49:00) [3]

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

---

anod   (2002-04-18 21:48:00) [4]

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

---

anod   (2002-04-18 21:44:00) [5]

Раньше был 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)));

---

ION T   (2002-04-18 21:39:00) [6]

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

---

Наверх