Zitat:
@ickehausen:
Hast du die Ereignisse auch mit der Komponente im
OH verbunden? Oder probier mal folgendes:
Code:
procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
[b]Progressbar1.Repaint;[/b]
end;
Ich habe mein letzten Kommentar zu spät geändert. Den Fehler habe ich eingegrenzt: Der Wert für AWorkCountMax wird mit 0 zurückgegeben. Klar dass der ProgressBar dann nichts anzeigen kann, wenn ProgressBar.Max := 0!!!!
Aber, warum bekomme ich null zurück?