TListView - aktivieren einiger Checkboxen verhindern

[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;

[Marco Steinebach]

Hallo!
JEP! Es funktioniert einwandfrei, auch mit mit D5.
Ganz herzlichen Dank.
Eine Bitte: kannst du evtl. noch ein zwei Worte über die If-Bedingung mit dem shr verlieren, für Bit-Operationen war ich immerschon zu doof.

Und noch eine Schönheitsfrage: wenn ich eines der Elemente aktiviere, was nicht aktiviert werden darf, ist es erst aktiviert, und sobald man ein anderes selektiert, ist die Aktivierung erst weg. Geht es, dass ein solches Element, sofort, nachdem man es aktiviert hat, wieder deaktiviert wird, damit der user gleich sieht, dass es nicht geht?

Ganz herzlichen Dank und herzliche Grüße
Marco

[tomkupitz]

Zitat:

Eine Bitte: kannst du evtl. noch ein zwei Worte über die If-Bedingung mit dem shr verlieren, für Bit-Operationen war ich immerschon zu doof.

anschaulich siehe hier: https://de.wikipedia.org/wiki/Logische_Verschiebung

Zitat:

Und noch eine Schönheitsfrage: wenn ich eines der Elemente aktiviere, was nicht aktiviert werden darf, ist es erst aktiviert, und sobald man ein anderes selektiert, ist die Aktivierung erst weg. Geht es, dass ein solches Element, sofort, nachdem man es aktiviert hat, wieder deaktiviert wird, damit der user gleich sieht, dass es nicht geht?

Verstehe ich nicht ganz. ABER: setze den Item gleich zu Beginn auf False. Dann bleibt der auch so.

with ListView1.Items.Add do
begin
Caption:='abcdefg';
Checked:=False;
end;