Главная страница
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.006 c
1-90308
yus
2002-01-09 06:16
2002.01.28
Forma


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


3-90200
avodous
2001-12-24 00:56
2002.01.28
TIBQuery + TIBUpdateSQL


7-90386
vik
2001-10-06 14:47
2002.01.28
Как отформатировать HDD


1-90317
Val
2002-01-11 17:28
2002.01.28
видимость в секции private