Eine Listbox, ein Timer, ein Button. Ich bekomme kein Error. Ändert sonst irgendeine Funktion deine Listbox?
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
if ListBox1.Count > 0 then begin
for i := 0 to ListBox1.Items.Count - 1 do
ListBox1.ItemIndex:= 0;
ListBox1Click(nil);
Timer4.Enabled:=True;
end else begin
Timer4.Enabled:=False;
end;
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
Timer4.Enabled:=False;
ListBox1.DeleteSelected;
Button4Click(nil);
end;