Problem mit ListView

OliverN_26 · Beiträge: 252 Win7 64-Bit, WinXP SP3 Delphi 7 Enterprise

Hi Leute

Ich hab ein generelles Verständnis Problem mit der ListView.
Wenn ich z.B. 3 Einträge habe und auf den 1. Klicke .. warum wird dann der folgende Code 3x ausgeführt?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
var
  sl : TStringList;
  Antwort,i : Integer;
  Zeile : String;
  DHandle : TextFile;
begin
  Antwort := Application.MessageBox (PChar('Test'),'Test', MB_YesNo+MB_IconQuestion+MB_DefButton1);
  if Antwort = IDYes then begin
    .
    .
    .
  end;
end;

Ein weiteres Problem:
Ich klicke auf den Wert..es kommt die obige Frage..ich sage NEIN und der Wert wird innerhalb der ListView markiert (blau hinterlegt).
Danach kann ich drauf klicken wie ich will aber ich komm nicht in die obige Procedure.

Wo ist mein Denkfehler?

Danke

jaenicke · Verfasst: Mi 05.01.11 06:43

Du prüfst ja auch gar nicht, welcher Eintrag betroffen ist. Und auch nicht, ob dieser markiert wurde oder es nicht mehr ist.

Du bekommst ggf. einmal das Event ausgelöst mit Selected auf False für den zuletzt markierten und dann mit Selected auf True für den jetzt markierten Eintrag.

Und bei mir passiert das auch nicht öfter. Einmal beim ersten Markieren und dann zweimal, wenn dieser deselektiert und der neue selektiert wird. :nixweiss:

markieren

Delphi-Quelltext

1:
2:
3:
4:

  if Selected then
    ShowMessage('Markiert: ' + Item.Caption)
  else
    ShowMessage('Entmarkiert: ' + Item.Caption);

Nebenbei: Die Flags sollten mir or verknüpft werden. Es kommt hier auf das gleiche heraus, aber es sieht so ein wenig komisch aus.

markieren

Delphi-Quelltext

1:	MB_YesNo or MB_IconQuestion or MB_DefButton1

OliverN_26 · Beiträge: 252 Win7 64-Bit, WinXP SP3 Delphi 7 Enterprise

Hi

Selected bringt mich leider auch nicht weiter.
Ich will nichts weiter als einen Eintrag der Listview "anklicken" und dann soll was geschehen.
Mach ich das am Besten über SelectItem oder onMouseDown?
SelectItem scheint irgendwie vor der Markierung des Items aufgerufen zu werden, denn wie bereits erwähnt,
wenn ich meine MessageBox mit "NEIN" beantworte ist das ListViewItem blau unterlegt und ich kann drauf drücken
wie ich will. Ich komm nich in die procedure SelectItem. Das kann doch nich so schwer sein oder?
Hab leider noch nie mit ner ListView gearbeitet ..

danke

---Moderiert von Narses: Beiträge zusammengefasst---

Ok, habs hinbekommen.
Habs jetz per onMouseDown gemacht und teste ob auch ein Item angeklickt wurde.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Item : TListItem;
begin
  Item := ListView1.GetItemAt(X,Y);
  if Assigned(Item) then begin
    .
    .
    .
  end;
end;

Danke

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme