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

Вниз

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;



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
1-90251
Alex Marmuzevich
2002-01-08 23:12
2002.01.28
DLL и EXE в одном флаконе.


3-90218
Алексей1
2001-12-21 19:17
2002.01.28
DBLookupComboBox


1-90272
GhostK
2002-01-09 07:40
2002.01.28
Где можно найти????


4-90409
Dimbambon
2001-11-24 22:51
2002.01.28
КАК СДЕЛАТЬ, ЧТО БЫ ПРИ ЗАПУСКЕ МОЯ ПРОГРАММА В Labele ОТОБРАЖАЛА ПРОИЗВОЛЬНОЕ ЧИСЛО?


6-90333
borjomez
2001-11-06 13:44
2002.01.28
TServerSocket