delphi的ListView控件如何判断当勾选checkbox时，选的是第几行？

Question

本帖最后由 wanghao0402 于 2012-07-26 15:08:13 编辑

Answer 1

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
  begin
     ShowMessage(item.Caption);
  end;
end;

Answer 2

unit Unit3;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm3 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    procedure ListView1Changing(Sender: TObject; Item: TListItem;
      Change: TItemChange; var AllowChange: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form3: TForm3;implementation{$R *.dfm}procedure TForm3.ListView1Changing(Sender: TObject; Item: TListItem;
  Change: TItemChange; var AllowChange: Boolean);
begin
  ShowMessage(IntToStr(Item.Index));
end;end.

Answer 3

有办法在OnClick事件中实现获取行号吗？

Answer 4

有办法在OnClick事件中实现获取行号吗？