ListView - Zeile herrausfinden

[Ardeo]

Hallo,

ich bin mir ja beinahe sicher, dass es sowas schon mal gab, aber ich hab bestimmt über ne Stunde gesucht und alles gefunden nur das nicht^^

Folgendes Problem:
Ich hab ein TListView aus dem ich beim Mausklick den Zeilenindex auslesen will.

Hab das Gefühl es ist banal einfach aber ich komm gerade irgendwie nicht drauf.

Im Voraus vielen Dank :)

[dominikkv]

Zitat:

Zitat von Ardeo

Hallo,

ich bin mir ja beinahe sicher, dass es sowas schon mal gab, aber ich hab bestimmt über ne Stunde gesucht und alles gefunden nur das nicht^^

Folgendes Problem:
Ich hab ein TListView aus dem ich beim Mausklick den Zeilenindex auslesen will.

Hab das Gefühl es ist banal einfach aber ich komm gerade irgendwie nicht drauf.

Im Voraus vielen Dank :)

MyTreeViev.selected?

[DeddyH]

Meinst Du TListView.Selected?

[SirThornberry]

Selected ist das primäre selektierte Item. Der Index ist über ItemIndex zu ermitteln.

[Ardeo]

Naja, gut, aber wie schaut das aus, wenn ich auf ein Subitem klick?

[SirThornberry]

Das einfachste wäre rowselect auf True zu setzen und die spalten auf die ganze breite zu ziehen. ansonsten kannst du die mausposition ermitteln und anhand des DisplayRect der Items ermitteln welches Item darunter liegt.

[bitsetter]

Im ListView OnClick SpaltenIndex heraus finden....

[Ardeo]

Genau das brauch ich für die zeile^^
Ich hab eine Tabelle mit 50 Zeilen und mit jeweils 3 Subitems. Und ich will, egal ob ich auf die Caption oder auf ein Subitem klicke, die Zeile wissen.

Danke für die bisher gebrachten Vorschläge :)

[bitsetter]

Hi,

so etwa?

Delphi-Quellcode:

procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i: integer;
begin
  for i:= 0 to Pred(ListView1.Items.Count) do
    if PtInRect(Listview1.Items.Item[i].DisplayRect(drBounds), Point(x, y)) then
    begin
      Caption:= Format('Item: %d', [i]);
      break;
    end;
end;

[Ardeo]

Ganz genau das meinte ich.
Dankeschön :wink:

[marabu]

Hallo.

Zitat:

Zitat von bitsetter

Delphi-Quellcode:

// ...
for i := 0 to Pred(ListView1.Items.Count) do
// ...
end;

Warum alle Items überprüfen? Das können ziemlich viele sein - trotz Break.
Würde es nicht genügen nur die sichtbaren Items zu testen?
TopItem und VisibleRowCount könnten dabei helfen.

Grüße vom marabu

[bitsetter]

Hallo,

in seinem Fall sollen es ja nur 50 Einträge sein, aber ansonsten hast du sicherlich recht. Ich hoffe mal, dass es so besser ist.

Delphi-Quellcode:

procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Loop, LastItem : integer;
begin
  if (Sender is TListView) and (TListView(Sender).Items.Count > 0) then
  begin
    LastItem := TListView(Sender).TopItem.Index + TListView(Sender).VisibleRowCount;
    if TListView(Sender).Items.Count = LastItem then
      LastItem := Pred(TListView(Sender).Items.Count);
    for Loop := TListView(Sender).TopItem.Index to LastItem do
      if PtInRect(TListView(Sender).Items.Item[loop].DisplayRect(drBounds), Point(X, Y)) then
      begin
        Caption := inttostr(Loop);//Beispiel
        break;
      end;
  end;
end;