Форум: "Основная";
Поиск по всему сайту: 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.011 c
14-90361          Oleg Gashev           2001-12-03 22:06  2002.01.28  
БИБЛИЯ ПРОГРАММИСТА


1-90269           ctapik-net            2002-01-09 21:11  2002.01.28  
Помогите пожалуйста.


1-90251           Alex Marmuzevich      2002-01-08 23:12  2002.01.28  
DLL и EXE в одном флаконе.


14-90365          Владислав             2001-12-03 08:55  2002.01.28  
Недокументированные возможности Delphi 5.


1-90294           Vasilii               2002-01-08 10:19  2002.01.28  
Вызов консольного приложения