Hallo,
möchte erreichen, dass während der Indexerstellung der Fortschritt mittels Progressbar angezeigt wird. Habe das mal so gemacht. Die Procedure wird mit
frmUpdate.Show;
aufgerufen.
Delphi-Quellcode:
procedure TfrmUpdate.FormPaint(Sender: TObject);
var i,s,t : integer;
begin
t := frmMain.tTable.RecordCount;
s := t div ProgressBar.max;
for i := 0 to ProgressBar.max do
begin
ProgressBar.Position := i;
sleep(s);
end;
close;
end;
1) Es erscheint mir zu langsam, d. h. ich würde gerne einen
direkten Bezug zur Indexerstellung erreichen. Hier habe ich die Anzahl der Datensätze zur Steuerung der Progressbar gewählt.
2) Ist das in FormPaint richtig untergebracht?
Wer hat dazu entsprechende Tipps? Danke
Fritz