怎样在启动画面加进程条(100分)

用AdoDataSet查的话，可以在onFetchProgress事件里写代码, 在其ExecuteOptions屬性裡打開eoAsyncFetch為True,編寫其OnFetchProgress事件。該事件裡有progress和MaxProgress屬性，你賦值給進度條的相關屬性就可以

同意lulugo

我是这样做的:
program CusMana;
uses
Forms,
Windows,
MainData in 'MainData.pas' {MainDataModule: TDataModule},
HintWindow in 'HintWindow.pas' {Form_Hint},
Main in 'Main.pas' {MainForm},
..............................
SplashForm in 'SplashForm.pas' {Form_navgator};
{$R *.res}
Var
hMutex:HWND;
Ret:Integer;
begin
Application.Initialize;
Application.Title := '客户资源管理系统';
hMutex := CreateMutex(nil,False,'aaa');
Ret := GetLastError;
If Ret <> ERROR_ALREADY_EXISTS then
begin
with TForm_navgator.Create(Application)do
begin
Show;
Update;
Application.CreateForm(TMainDataModule, MainDataModule);
MyProgressBar.Position := 20;
Sleep(100);
Application.CreateForm(TMainForm, MainForm);
MyProgressBar.Position := 50;
Sleep(100);
Application.CreateForm(TForm_Hint, Form_Hint);
MyProgressBar.Position := 100;
Sleep(100);
Hide;
Free;
end;
Application.Run;
end
else
begin
Application.MessageBox('应用程序已经打开了!','请注意。。。',MB_OK);
ReleaseMutex(hMutex);
end;
end.

楼主的想法不错
可我还没遇到这样的问题，向楼主学习