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

Вниз

Как узнать, по какой колонке был клик в TListView?   Найти похожие ветки 

 
avoid   (2007-10-29 18:33) [0]

Подобный вопрос частично решен здесь

http://delphiworld.narod.ru/base/tlistview_column_click.html
http://www.btc.lancom.ru/programming/base/tlistview_column_click.html

однако эта функция не работает, если у ListView включен RawSelect=True. Также если поле SubItem пустое выдает значение 0.

Может ли кто-то подсказать как сделать работу с включенным RawSelect и как быть с пустыми SubItem?


 
Lacmus ©   (2007-10-29 21:18) [1]



uses
 CommCtrl;

function TListViewX.GetItemAtX(X, Y: integer;
 var Col: integer): TListItem;
var
 hHeader: THandle;
 HitTestInfo: HD_HITTESTINFO;
begin
 Result := GetItemAt(X, Y); Col := -1;
 if ViewStyle = vsReport then begin
   hHeader := SendMessage(Handle, LVM_GETHEADER, 0, 0);
   if hHeader <> 0 then begin
     FillChar(HitTestInfo, SizeOf(HitTestInfo), 0);
     HitTestInfo.Point := Point(X, 0);
     Col := SendMessage(hHeader, HDM_HITTEST, 0, Integer(@HitTestInfo));
   end
 end
end;



 
avoid   (2007-10-29 22:19) [2]

Спасибо!



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

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

Наверх




Память: 0.44 MB
Время: 0.048 c
2-1199647861
206196131
2008-01-06 22:31
2008.02.03
Midi окна из dll дайте направление движения


2-1199966099
E
2008-01-10 14:54
2008.02.03
Запустить EXE файла из Основного не прибегая к разрезанию и без..


15-1199161184
VEG
2008-01-01 07:19
2008.02.03
Анкета не найдена


2-1199445724
FIL-23
2008-01-04 14:22
2008.02.03
считывание с excel листов


2-1199530605
Sairex
2008-01-05 13:56
2008.02.03
Загрузочник ОС





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский