procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Timer1.Enabled:=true;
for i:=1 to 20000 do
begin
Application.ProcessMessages;
memo1.Lines.Add('afdlakjsfd');
end;
//改成你的sql语句
Timer1.Enabled:=false;
ShowMessage('执行完毕');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if length(Label1.Caption)>20 then
Label1.Caption:='正在执行SQL语句'
else
Label1.Caption:=Label1.Caption+'.';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:='正在执行SQL语句';
Timer1.Interval:=200;
Timer1.Enabled:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
begin
k:=0;
for i:=1 to 10 do
begin
inc(k);
Application.ProcessMessages;
Label1.Caption:='正在执行SQL语句'+LeftStr('......',k);
if k>4 then k:=0;
sleep(200);
end;
ShowMessage('执行完毕');
end;