Ich will man temporär eine Statusbar einblenden (nicht meckern, es ist eine Spielerei) und ein Label für einen Zähler nutzen.
Die Aktualisierung des Formulars erfolgt erst nach der Prozedur.
Wie kann man zwisdchendurch refreshen? Ich dachte, FM wäre da direkter als die
VCL...
Delphi-Quellcode:
procedure TFormPersonsGrid.Insert10000;
var
I: Integer;
DS: TSQLDataSet;
Id: Integer;
FieldName: string;
begin
beep;
StatusBar.Visible := True;
StatusBar.Repaint;
// Self.Update; ???
for I := 0 to 1000 - 1 do
begin
LabelStatus.Text := Format('%d', [I]);
BlaBlaBla;
end;
// StatusBar.Visible := False;
beep;
FillGridData;
end;