Hallo,
mein Probem ist, das ich bei meinen Listview immer die Fehlermeldung bekomme: Listview überschreitet Maximum (0).
Ich habe schon im Forum gesucht aber keine Lösung gefunden, die mir weiterhilft.
Die
Exception wird hier ausgelöst:
Delphi-Quellcode:
procedure TForm_UserAnlegen.ListView1CustomDrawItem(
Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if ListView1.Items.Count = -1
then exit
else if StrToInt(Item.SubItems[0]) > 0 then Color := clgreen;
end;
Kann mir bitte jemand weiterhelfen?
MfG
schuetze09