ListView Scroll

[epm5]

Hi,

zur Anzeige von Stringlisten verwende ich eine ListView.
In dieser LV soll aber nichts markiert werden können (nur anzeigen).

Ist LV.enable := true kann der User den Itemindex per Mausklick verändern. Das soll er aber nicht.
Ist LV.enable := false kann der User den Itemindex per Mausklick nicht verändern, aber u.U. auch nicht mehr alles sehen, da Scrollen nicht mehr funktioniert.
Der User soll in der LV nichts markiern aber trotzdem scrollen und idealerweise auch die Breite der Spalten verändern können. Gibt es dafür eine Lösung?

[Gollum]

Hallo,

evtl. HideSelection:=True oder wenn das nicht hilft, das Ereignis OnChanging überschreiben und AllowChange:=False setzen.

[epm5]

dadurch ( OnChanging ) verschwindet bei mir der Inahlt der ersten Spalte ( Caption ) und ich kann auch nichts mehr per Programm an der LV ändern.
Das soll aber möglich sein - nur der User soll nichts selektieren können. Gibt es da noch einen Weg?

[Volker Z.]

Hallo,

versuch es mal mit

Delphi-Quellcode:

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

Gruß

[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ß