ListView

[DriveSoftware]

Есть у ListView-а свойство CheckBoxes, если поставить в True на каждом Item-е появляется CheckBox, проблема в том что не могу отловить событие когда изменяют его состояние, как?

 

[admin]

DriveSoftware
Элементарно, Ватсон.
Я как-то уже бился наж этой задачкой.
Вот код.

Событие OnMouseUp на ListView

var
ListItemAtCursor:TListItem;
i:cardinal;
begin
ListItemAtCursor:=alarmslist.GetItemAt(X,Y);
for i := ComponentCount - 1 downto 0 do
 if (Components[i] is TAlarm) and ((Components[i] as TAlarm).Tag=StrToInt(ListItemAtCursor.SubItems[2])) then
 begin
  (Components[i] as TAlarm).Enabled:=ListItemAtCursor.Checked;
 end;

Ну есть ясна я думаю.

 

[DriveSoftware]

Серёга

Спасибо. Но я зделал по другому =)

CurrentBoxStatus : Boolean; //глобальная

procedure TForm1.ListView1Changing (Sender: TObject; Item: TListItem; 
Change: TItemChange; var AllowChange: Boolean);
begin
CurrentBoxStatus := Item.Checked; // запоминаем значение Item.Checked до того как юзер на нее нажал
AllowChange := True; // разрешаем ему нажать :)
end;

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);
begin
 if Item.Checked <> CurrentBoxStatus then // юзер изменил значение Item.Checked
  begin
  CurrentBoxStatus := Item.Checked; // изменяем значение переменной на новое значение
  { ну а здесь уже делаем че хотим....} 
  end;

 

[admin]

DriveSoftware
Ну если работает То замечательно. Хотя могли бы сделать и событие onCheckBoxClick чтоль. Трудно им чтоль было?

 

[Guest]

Во блин, а в Visual Basic, например, у ListView есть событие ItemCheck! Чего действительно борландовцы кочевряжатся?

 

[Barmutik]

Вообще-то у Борланда это тоже есть... в эвенты OnChange and OnChnaging выведен замечательный параметр

Change: TItemChange

В котором и говорится когда происходит изменение состояние чекбокса...