请问那个屏幕中间那个提示：“正在处理，请稍候。。。”是怎么做的？

Question

谢谢！

Answer 1

搞个模态窗口就行了
object fmProgressDialog: TfmProgressDialog
  Left = 275
  Top = 324
  BorderIcons = []
  BorderStyle = bsToolWindow
  ClientHeight = 50
  ClientWidth = 429
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clBlue
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 15
  object G: TGauge
    Left = 0
    Top = 28
    Width = 429
    Height = 22
    Align = alBottom
    BackColor = clGradientActiveCaption
    Color = clTeal
    ForeColor = clBlue
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Progress = 0
  end
  object Label1: TLabel
    Left = 1
    Top = 8
    Width = 159
    Height = 15
    Caption = #27491#22312#23548#20986#25968#25454#35831#31245#20399'...'
  end
end
      {$IFDEF SHOW_PRPGRESSDIALOG}
      fmProgressDialog.G.Progress := fmProgressDialog.G.Progress + 1;
      Application.ProcessMessages;
      {$ENDIF}

Answer 2

Label.caption:='正在处理，请稍候';
form1.update;