Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ListView и Checkboxes в нем

Автор: Dennis 29.12.2003, 13:40

В ListView (стиль vsReport) Checkboxes= TRUE

Не подскажете ли как можно обрабатывать событие изменения состояния Checkboxa (наподобие OnClickCheck) ?

Автор: 0FF 29.12.2003, 14:02

Событие - OnChange

Автор: p0s0l 29.12.2003, 14:10

Попробуй событие OnMouseDown:

Код

procedure TForm1.lv1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  item : TListItem;
begin
  item := lv1.GetItemAt(x, y);
  if item = nil then Exit;
  if x < item.DisplayRect(drIcon).Right then
  begin
   // нажали на чекбокс
    if item.Checked then ...
    else ...
  end;
end;

Автор: Dennis 29.12.2003, 14:48

To <p0s0l>

Спасибо, помогло.