Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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 и переписал...



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

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

Наверх





Память: 0.45 MB
Время: 0.004 c
14-2673
SPeller
2002-03-27 11:07
2002.05.02
Вопрос не о Дельфи


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


1-2588
YurikVN
2002-04-16 00:45
2002.05.02
EXE из EXE


4-2709
alexey1
2002-02-27 12:40
2002.05.02
Вопрос на использование функции FindWindowEx


14-2679
Bboy
2002-03-26 22:02
2002.05.02
Очередь загрузки в Windows





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский