ListBox Einträge verschieben/kopieren - Progressbar

[Matze]

Bitte nächstes mal ohne Aufforderung ein neues Thema erstellen, denn das hat mit der Ausgangsfragestellung nicht mehr viel gemeinsam, es sei denn, du passt das erste Thema und den Titel des Themas entsprechend an.

Progressbar initialisieren:

ProgressBar1.Max := ListBox1.Items.Count; Dann in deiner Schleife:

Delphi-Quellcode:

ProgressBar1.Position := i + 1;
Application.ProcessMessages;

Je nach Anzahl der Einträge ist es schneller, dies nur alle paar Schleifendurchgänge aufzurufen:

Delphi-Quellcode:

if i mod 10 = 0 then
begin
  // wird nur jeden 10. Durchgang aufgerufen
end;

Aber nun genug OT!