Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Вниз

В чем ошибка? 


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]

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



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

Дурак я;)

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:55) [6]

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
3-2482            MCFire                2002-04-11 11:45  2002.05.02  
Опять TreeView


6-2635            VS                    2002-02-20 07:02  2002.05.02  
Помогите !! Програ зависает при разрыве соединения при закачке файла с ФТП


4-2721            alexey1               2002-02-27 12:41  2002.05.02  
WIN API


1-2593            Alla                  2002-04-19 16:03  2002.05.02  
Проблемка с MaskEdit


1-2573            masik                 2002-04-17 13:00  2002.05.02  
MS DTHMLEdit OCX глючит или нет..?