var
lthread: TThread;
i: Integer;
lb: boolean;
begin
lthread := TThread.CreateAnonymousThread(procedure
var
lform: tform;
k: Integer;
begin
lform := tform.Create(nil);
lform.BorderStyle := bsnone;
lform.Position := poMainFormCenter;
lform.Width := 200;
lform.Height := 80;
lform.Top := 0;
lform.Left := 0;
lb := True;
lform.Show;
k := 0;
while true do
begin
//lform.Caption := '查询中...' + IntToStr(k) + '秒';
lform.Canvas.TextOut(10,10,'查询中...' + IntToStr(k) + '秒');
sleep(1000);
inc(k);
if not lb then break;
end;
lform.Free;
end);
lthread.Start;
for I := 1 to 1000 do
begin
Sleep(10);
Application.ProcessMessages;
end;
lb := False;
delphi TThread.CreateAnonymousThread 弹出查询时间窗口
猜你喜欢
转载自blog.csdn.net/y281252548/article/details/91045668
今日推荐
周排行