Wieso wird ListView1SelectItem zwei mal ausgeführt? Ein Bug?

[AlexII]

Hallo,

wieso wird ListView1SelectItem beim anklicken zwei mal ausgeführt? Beim ersten Klick nicht, bei den nächsten schon, immer doppelt.

Hab Delphi 2010

Danke!

[Lemmy]

vermutlich weil du das so programmiert hast.. Zeig mal als erstes was im OnClick Event passiert...

[AlexII]

Ne, hab neues Projekt erstellt und getestet.

Außer diesem Beispiel hab da nix.

Delphi-Quellcode:

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
showmessage('test');
end;

[zeras]

Ich würde hier zum Test nicht mit ShowMessage arbeiten. Hast du nicht eine Statusbar, wo du einen globalen Wert hochzählen kannst?

[AlexII]

Delphi 7 Personal macht das gleiche. :gruebel:

[Lemmy]

Zitat:

Zitat von AlexII (Beitrag 1202953)

Hab Delphi 2010

stand das vorher schon da? Sorry, habe ich überlesen...

Wenn Du dir den Methodenaufruf von ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); anschaust, dann solltest Du doch auch die Lösung sehen: Der wird 2x aufgerufen, einmal für das Item das ausgewählt war und einmal für das neue ausgewählte Item. Über "Selected" kannst Du dann entsprechend reagieren (ist beim ersten Aufruf false, beim zweiten Aufruf true)

GRüße

[AlexII]

Zitat:

Zitat von Lemmy (Beitrag 1202961)

Zitat:

Zitat von AlexII (Beitrag 1202953)

Hab Delphi 2010

stand das vorher schon da? Sorry, habe ich überlesen...

Wenn Du dir den Methodenaufruf von ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); anschaust, dann solltest Du doch auch die Lösung sehen: Der wird 2x aufgerufen, einmal für das Item das ausgewählt war und einmal für das neue ausgewählte Item. Über "Selected" kannst Du dann entsprechend reagieren (ist beim ersten Aufruf false, beim zweiten Aufruf true)

GRüße

Ja das stand da.

Hab ich mir auch so gedacht, danke dir!

Hast du vllt ein Code-Beispiel wie ich mit "Selected" darauf reagiere?

[Lemmy]

du meinst so was:

Delphi-Quellcode:

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if Selected then
    showmessage('test');
end;

[AlexII]

Thx :thumb:

[hoika]

Hallo,

einmal für das alte Item, einmal für da neue.
Ich merke mir in einer Variable immer das aktuelle Item
und vergleiche im OnSelectItem, ob das Item verschieden ist.


Heiko