ListView Scroll

[epm5]

Hallo Volker,

danke, jetzt sehe ich wieder den Inhalt der ersten Spalte, aber leider wird immer noch jeder Versuch den ItemIndex per Programm zu verändern um durch die Liste zu wandern mit einer

Exception der Klasse EAccessViolation quittiert.

Sobald ich deinen Vorschlag

if Change <> ctState then
begin
AllowChange := true;
end else begin
AllowChange := false;
end;

auskommentiere, kann ich den ItemIndex verändern aber der User leider auch wieder einen beliebigen Eintrag markieren.

Bin dankbar für jeden weiteren Vorschlag..

Klaus

[DeddyH]

Definier Dir doch ein privates Boolean-Feld des Formulars, nennen wir es mal FChangedByCode oder so. Wenn Du also im Code den ItemIndex setzen willst, setzt Du dieses Feld auf true, machst Deine Änderungen und setzt es wieder auf false. Im EventHandler musst Du dann natürlich das Feld noch zusätzlich auswerten.

Delphi-Quellcode:

procedure TForm4.ListView1Changing(Sender: TObject; Item: TListItem; Change: TItemChange; var AllowChange: Boolean);
begin
  AllowChange := (Change <> ctState) or FChangedByCode;
end;

Ungetestet, sollte aber funktionieren.

[epm5]

Danke, damit geht es wie gewünscht
jetzt muss ich nur noch verstehen weshalb...
AllowChange := Change <> ctState ???

[Volker Z.]

Hallo,

Zitat:

jetzt muss ich nur noch verstehen weshalb...
AllowChange := Change <> ctState ???

Wenn eine der Eigenschaften Cut, Focused oder Selected eines Listeneintrags geändert wird, dann wird - falls vorhanden - ein OnChanging-Event getriggert mit Change = ctState

Gruß