Nur ein ListviewItem "selectieren"

[Salomon]

Hallo,
ich habe auf meiner From zwei Listviews. Nun möchte ich dem User die Möglichkeit geben einzelne Items zu löschen, allerdings darf dafür immer nur ein Item in der einen oder der anderen Listview makiert sein.

Wie bekomme ich es also hin das, wenn ein Item in der ersten Listview ausgewählt wird, in der zweiten kein item selected ist? Ein event OnSelect gibt es leider nicht.

Mfg Salomon

[sakura]

Mach mal aus OnSelected ein OnClick und nutze ListView1.SelCount.

[Daniel B]

Es gibt aber OnSelectItem, dann noch MuiltiSelect auf False. Sonst kannst Du noch den Index auf -1 setzen, oder Selected auf nil.

Grüsse, Daniel :hi:

[Salomon]

@ Daniel B: Selected kann man nicht auf nil setzten. Wie meinst du das mit dem Index auf -1 setzten? Multiselect fällt weg, da das ganze eine Wechselwirkung zwischen zwei verschiedenen Listviews ist.

@sakura:Wie meinst du das mit "Nutze Selcount"? Dadurch werden die Items doch nicht deselectiert.

[Daniel B]

Zitat:

Zitat von Salomon

@sakura:Wie meinst du das mit "Nutze Selcount"? Dadurch werden die Items doch nicht deselectiert.

Er meinte die Abfrage:

Delphi-Quellcode:

if ListView1.SelCount = 1 then //Ist also nur ein Eintreag Selectiert
begin
  //Source
end;

Grüsse, Daniel :hi:

[Daniel B]

Zitat:

Zitat von Salomon

@ Daniel B: Selected kann man nicht auf nil setzten.

Siehe: http://www.delphipraxis.net/viewtopic.php?t=1419 Beitrag von DrDangerous

Grüsse, Dnaiel :hi:

[Salomon]

Achso, aber wie soll mich das weiterbringen, ich möchte ja das kein Eintrag ausgewählt ist.

Anders gefragt, wie kann ich einen Item in einer Listview deselectieren? Dann kann ich ja in einer Schleife alle Items deselectieren.

[Daniel B]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.Selected := nil;
end;

[Salomon]

:oops: Sorry, ich habe da wohl was verwechselt. Ich meinte zwei Listboxen, keine Listviews.

[Daniel B]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Selected[-1] := False;
end;