ListView - Zeile herrausfinden

[marabu]

Hallo.

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;