TListView - aktivieren einiger Checkboxen verhindern

[Jasocul]

Wenn du die Zeile, in der es knallt, weglässt, sollte es schon funktionieren.
Du setzt AllowChange ja auch auf false. Das bewirkt schon, dass die CheckBox nicht verändert wird.

Und natürlich wird das Event zig mal ausgelöst, weil du die CheckBox innerhalb der Methode änderst. Das löst das Event jedes mal wieder aus. Das dürfte auch der Grund für deine Schutzverletzung sein.

[Jasocul]

Ohne das zu testen, behaupte ich einfach mal:
Das Event triggert durch die überflüssige Zeile immer wieder, bis zum Stack-Overflow.

[Marco Steinebach]

Hallo zusammen,
@Frühlingsrolle: doch, die Schutzverletzung kommt genau daher, dass im Event das Event aufgerufen wird, usw., wie Jasocul schon gesagt hat.
@Jasocul: brauchst nicht testen, funktioniert.
Problem ist, dass man jetzt zwar die Checkbox beim x-ten Element nicht mehr aktivieren kann, man kann es aber auch nicht mehr anwählen, sprich, focused auf true setzen. Das muß ich aber, da ich die Liste mit Screenreader auslese (Sprachausgabe für blinde).
Der Effekt soll sein, dass man zwar Elemente selektieren kann, aber eben nicht die Checkbox aktivieren.
Irgend'ne Idee dazu?
Viele Grüße
Marco

[Jasocul]

Deine Prüfung auf Change = ctState verhindert, dass der Eintrag selektiert werden kann.
Bei Änderung auf Selected, wird auch ctState gesetzt.

Wenn diese Prüfung rausnimmst, sollte es funktionieren.

[tomkupitz]

So...

Code:

procedure TForm.ListView1ItemChecked(Sender: TObject; Item: TListItem);
begin
  if Item.Index=0 then
    Item.Checked:=False;  
end;

[tomkupitz]

In Delphi 5 das probieren:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ListView1.Items.Add do
    Caption:='abcdefg';
end;

var ures1, ures2: Integer;

procedure TForm1.ListView1Changing(Sender: TObject; Item: TListItem; Change: TItemChange; var AllowChange: Boolean);
var i: Integer;

begin
  if Change=ctState  then
  begin
    ures1:=SendMessage(ListView1.Handle, LVM_GETITEMSTATE, i, LVIS_STATEIMAGEMASK);
  end;
end;

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);
var i: Integer;

begin
  if Change=ctState then
  begin
    ures2:=SendMessage(ListView1.Handle, LVM_GETITEMSTATE, i, LVIS_STATEIMAGEMASK);

    if ((ures1 and LVIS_STATEIMAGEMASK) shr 12) <> ((ures2 and LVIS_STATEIMAGEMASK) shr 12) then
      if Item.Index=0 then
        Item.Checked:=False;
  end;
end;