ListView: ItemIndex ?

[Christian]

Quatsch.

Ich habs jetzt probiert es funktionieren bei mir beide Eigenschaften perfekt und tun das was sie sollen und sind keinesfalls die selben...

[Dets]

Wenn ich 3 Einträge habe und wähle Eintrag 3 aus, ist Selected.Index nicht mal gesetzt, wenn ich anschliessend Eintrag 1 auswähle, wird plötzlich etwas mit Eintrag 3 getan, um es zu verdeutlichen wähle ich nun noch Eintrag 2 aus und es passiert was mit Eintrag 1. Selected.Index ist also sozusagen im Rückstand. ItemFocused.Index ist ebenso immer im Rückstand. Was könnte ich tun um den wirklich aktuellen ItemIndex auszulesen ?

Ich glaube, ich weiß wo der Denkfehler liegt: du benutzt wahrscheinlich das Ereignis OnSelectItem!
Wenn du einen anderen Eintrag im Listview auswählst, wird OnSelectItem zweimal ausgelöst: einmal mit dem nun nicht mehr ausgewähltem Item und Selected:=false als Parameter und danach mit dem neu ausgewähltem Item und Selected:=true

greet, Dets ...

[pluto]

Evlt. liegt es auch am anzeige Style Christian du benutzt ja einfach nur eine Liste aber evlt. nutzt NIls ja den Report modus oder einen anderen.

Im Prinzip sollte das aber egal sein.

[Nils]

@pluto: Ich benutze Report, was anderes macht ja auch wenig Sinn.
@Dets: Ich habe das auf Hinweis von pluto nur probiert, aber wieder rausgenommen, da es nicht funktionierte.
@Christian: Schick mir mal bitte das komplette Projekt, denn wenn ich das neu kompiliere funktioniert es bestimmt nicht mehr. Welche Version benutzt du ?

[Christian]

Lazarus SVN
FPC 2.2.0

[Nils]

Hm, dein Projekt ist ok.
Ich habe übrigens den Code ein wenig verbessert:

Code: Alles auswählen

procedure TfrmMain.mmEditRadtourClick(Sender: TObject);
begin
  if LV.Selected = nil then
    Exit;
  if LV.Selected.Index > -1 then
  begin
    with frmCreate do
    begin
      ShowModal;
 
      ActiveControl := eKM;
 
      with LV.Selected do
      begin
        c           := StrToInt(Caption);
        eKM.Text    := SubItems[0];
        eRoute.Text := SubItems[1];
        eDatum.Text := SubItems[2];
      end;
    end;
  end;
end;

Der Index stimmt übrigens immer, das Setzen der Edit-Felder scheint problematisch zu sein. Ich verstehe aber überhaupt nicht warum, denn das müsste eigentlich funktionieren.