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




Вниз

ListView и Checked Item-ы 


oleksa   (2002-01-11 15:58) [0]

Здравствуйте

Есть ListView, у которого ViewStyle = vsReport, Checkboxes = true
Пользователь кликает на checkbox-e определенного Item-а (только checkboxe, сам Item не выделяется) При изменении checkbox-а каждого Item-a нужно выполнять некие действия.
Скажите пожалуйста, как написать свой обработчик, который бы реагировал только на изменения свойства Checked элемента TListView? При этом нужно знать, для какого элемента это свойство было изменено.

Спасибо



oleksa   (2002-01-11 18:22) [1]

Я согласен уже сообщения перехватывать, только скажите - какий параметры Message? (Msg, WParam, LParam)



oleksa   (2002-01-11 18:42) [2]

Спасибо, все решилось написанием обработчика OnMouseDown
Если подскажете более элегантный вариант - буду благодарен.

procedure TForm1.lvMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
fi :TLVFindInfo;
i :integer;
begin
fi.pt.x := X;
fi.pt.y := Y;
fi.flags := LVFI_NEARESTXY;
fi.vkDirection := VK_UP;
i := ListView_FindItem(self.Handle, -1, fi);
if( i >= 0 )then
if( (Sender as TListView).Items.Item[i].Checked )then
ShowMessage("Checked")
else
ShowMessage("Unchecked");
end;




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




Наверх





Память: 0.72 MB
Время: 0.036 c
14-90358          Никто                 2001-12-03 03:28  2002.01.28  
TP7


3-90195           Вика                  2001-12-21 22:25  2002.01.28  
Хранимые процедуры и рефреш таблицы


1-90310           Reals                 2002-01-10 11:21  2002.01.28  
Проверка: Откуда запущена прога...


14-90351          fliz                  2001-11-28 17:36  2002.01.28  
кто по сколько часов в день программировать способен?


4-90418           Ghost666              2001-11-24 04:00  2002.01.28  
EXENAME