请问那个屏幕中间那个提示:“正在处理,请稍候。。。”是怎么做的? 谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 搞个模态窗口就行了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'...' endend {$IFDEF SHOW_PRPGRESSDIALOG} fmProgressDialog.G.Progress := fmProgressDialog.G.Progress + 1; Application.ProcessMessages; {$ENDIF} Label.caption:='正在处理,请稍候';form1.update; 结婚散分咯~(之六) 請教:如何實現dbgrid change的時候,彈出message 软件试用(电子笔记本) 脱开原开发环境后,为什么不能执行修改操作? 做一个web服务,如何在web服务里面使用ativex控件那?来者有分 关于数据库应用程序打包问题!!!!!!!! 如何屏蔽ALT+F4键? 谁有XP窗体控件或XP的按扭 DBGrid中如果同时有多个表字段,就不能够编辑或者新增记录吗? 请问如何将数据库中的数据转化或保存为文本文件,反之怎样从文本文件中读取数据? 请教大家一个delphi执行存储过程的问题? 如何提取汉字的点阵信息,从DOS的HZK16提取的点阵信息不理想!
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}
form1.update;