Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

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

 
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 и переписал...



Страницы: 1 вся ветка

Текущий архив: 2002.05.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
7-2703
azik
2002-02-05 14:23
2002.05.02
Люди помогите разобратся с сервисами в Delphi. Спасибо !!!


1-2601
Vint
2002-04-20 02:39
2002.05.02
Изменение свойства в ObjectInspector


1-2569
Янушка
2002-04-19 11:47
2002.05.02
Как осуществить загрузку рисунка на форму, не используя TImage?


1-2552
VictorS
2002-04-19 02:12
2002.05.02
существование экземпляра класса


4-2710
skywalker
2002-02-27 11:50
2002.05.02
Окно в потоке