Eine einfache Lösung wäre natürlich auch, dass du die den TopIndex einfach merkst.
Delphi-Quellcode:
procedure TDialog.btnAddClick(Sender: TObject);
var
temp: integer;
begin
temp := ListView1.TopIndex;
{...}
ListView1.TopIndex := temp;
end;
Grüße
Headbucket
Weiß Du vllt wie man das in Lazarus macht? TopIndex gibt es da nicht. Und
Code:
ListView1.TopItem.Index := StrToInt(XMLPropStorage1.StoredValue['DoneTopItemIndex']);
will er irgendwie nicht schlucken, es kommt der Fehler:
Zitat:
main.pas(196,29) Error: No member is provided to
access property