Verhalten von TListView ändern

[Sir Rufo]

Hmmm, wäre es nicht einfacher gewesen, das mit den StateImages zu erschlagen?

Delphi-Quellcode:

unit Forms.MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.ImageList, Vcl.ImgList,
  Vcl.ComCtrls;

type
  TMainForm = class( TForm )
    ListView1: TListView;
    LargeImageList: TImageList;
    StateImageList: TImageList;
    procedure ListView1MouseDown(
      Sender: TObject;
      Button: TMouseButton;
      Shift : TShiftState;
      X, Y  : Integer );
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.ListView1MouseDown(
  Sender: TObject;
  Button: TMouseButton;
  Shift : TShiftState;
  X, Y  : Integer );
var
  LItem    : TListItem;
  LHitTests: THitTests;
begin
  if Shift = [ssLeft]
  then
    begin
      LHitTests := ListView1.GetHitTestInfoAt( X, Y );
      LItem     := ListView1.GetItemAt( X, Y );
      if Assigned( LItem ) and ( THitTest.htOnStateIcon in LHitTests )
      then
        begin
          LItem.StateIndex := ( LItem.StateIndex + 1 ) mod 2;
        end;
    end;
end;

end.

Ein einfacher Klick direkt auf das StateImage ändert den Status. Jetzt kann man ganz gemütlich überall hinklicken und beim bewussten Klick auf das StateImage wird das Element ausgewählt oder wieder abgewählt.

Ist irgendwie stressfreier als dauernd Doppelklicks zu veranstalten.

UPDATE

Noch effektiver könnte auch das hier sein, dadurch hat man die gleiche Logik, wie bei Win8+

Delphi-Quellcode:

unit Forms.MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.ImageList, Vcl.ImgList,
  Vcl.ComCtrls;

type
  TMainForm = class( TForm )
    ListView1: TListView;
    LargeImageList: TImageList;
    StateImageList: TImageList;
    procedure ListView1MouseDown(
      Sender: TObject;
      Button: TMouseButton;
      Shift : TShiftState;
      X, Y  : Integer );
    procedure ListView1SelectItem(
      Sender  : TObject;
      Item    : TListItem;
      Selected: Boolean );
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.ListView1MouseDown(
  Sender: TObject;
  Button: TMouseButton;
  Shift : TShiftState;
  X, Y  : Integer );
var
  LItem    : TListItem;
  LHitTests: THitTests;
begin
  if Shift = [ ssLeft ]
  then
    begin
      LHitTests := ListView1.GetHitTestInfoAt( X, Y );
      LItem     := ListView1.GetItemAt( X, Y );
      if Assigned( LItem ) and ( THitTest.htOnStateIcon in LHitTests )
      then
        begin
          LItem.Selected := not LItem.Selected;
        end;
    end;
end;

procedure TMainForm.ListView1SelectItem(
  Sender  : TObject;
  Item    : TListItem;
  Selected: Boolean );
begin
  if Selected
  then
    Item.StateIndex := 1
  else
    Item.StateIndex := 0;
end;

end.