我 做了个动态的过渡效果,在过渡效果上,放了一个图片和一个progressbar,随着progressbar的动态增加,可是图片就是没显示出来,这是怎么回事,希望各位高手指点.dpr文件代码如下:
program renshi;uses
windows,
Forms,
main in 'main.pas' {mainform},
ulogin in 'ulogin.pas' {frmlogin},
udb in 'udb.pas' {sdbs: TDataModule},
move in 'move.pas' {lpform},
guanyu in 'guanyu.pas' {guanyuform},
frmrenshi in 'frmrenshi.pas' {frmbasicrenshi};{$R *.res}
var p:integer;
begin
Application.Initialize;
lpform:=Tlpform.create(application);
lpform.show;
repeat
lpform.bar.StepBy(5);
sleep(50);
until lpform.bar.Position=100;
Application.CreateForm(Tsdbs, sdbs);
Application.CreateForm(Tfrmlogin, frmlogin);
Application.CreateForm(Tfrmbasicrenshi, frmbasicrenshi);
Application.CreateForm(tguanyuform,guanyuform);
sleep(1000); //延迟登入界面;
for p:=1 to 20 do
begin
lpform.bar.Width:=lpform.bar.Width-15;
lpform.Image1.Width:=lpform.Image1.Width-15;
lpform.Width:=lpform.Width-15; sleep(5);
end;
lpform.bar.Free;
lpform.Free;
// flogin.Hide;
// flogin.Free;
Application.Run;
end.
program renshi;uses
windows,
Forms,
main in 'main.pas' {mainform},
ulogin in 'ulogin.pas' {frmlogin},
udb in 'udb.pas' {sdbs: TDataModule},
move in 'move.pas' {lpform},
guanyu in 'guanyu.pas' {guanyuform},
frmrenshi in 'frmrenshi.pas' {frmbasicrenshi};{$R *.res}
var p:integer;
begin
Application.Initialize;
lpform:=Tlpform.create(application);
lpform.show;
repeat
lpform.bar.StepBy(5);
sleep(50);
until lpform.bar.Position=100;
Application.CreateForm(Tsdbs, sdbs);
Application.CreateForm(Tfrmlogin, frmlogin);
Application.CreateForm(Tfrmbasicrenshi, frmbasicrenshi);
Application.CreateForm(tguanyuform,guanyuform);
sleep(1000); //延迟登入界面;
for p:=1 to 20 do
begin
lpform.bar.Width:=lpform.bar.Width-15;
lpform.Image1.Width:=lpform.Image1.Width-15;
lpform.Width:=lpform.Width-15; sleep(5);
end;
lpform.bar.Free;
lpform.Free;
// flogin.Hide;
// flogin.Free;
Application.Run;
end.
begin
/// AnimateWindow (Handle, 400, AW_CENTER);
AnimateWindow (Handle, 400, AW_BLEND);end;