delphi增添动态图片

delphi添加动态图片
一般情况下，添加了gif图片是可以动的，但是我做了一个登陆界面以后，就只显示静态了，求指导。下面是登陆界面的程序

program Project1;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Form1:=TForm1.Create(Form1);
  Form1.Show;
  Form1.Update;

  Application.CreateForm(TForm2, Form2);
  Sleep(3000);
  Form1.Hide;
  Form1.Free;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
[解决办法]

uses
  Forms,Windows,

  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

procedure MySleep(dwMilliseconds: DWORD);
var
  i: Integer;
  dwMsSplit: Dword;
begin
  dwMsSplit := dwMilliseconds div 50;
  for i := 0 to dwMsSplit do
  begin
    Sleep(50);
    Application.ProcessMessages;
  end;
end;

begin
  Application.Initialize;
  Form1:=TForm1.Create(Form1);
  Form1.Show;
  Form1.Update;

  Application.CreateForm(TForm2, Form2);
  MySleep(3000);
  Form1.Hide;
  Form1.Free;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

方法笨了点，希望能帮到你。
[解决办法]
procedure MySleep(dwMilliseconds: DWORD);
var
  i: Integer;
  dwMsSplit: Dword;
begin
  dwMsSplit := dwMilliseconds div 50;
  for i := 0 to dwMsSplit do
  begin
  Sleep(50);
  Application.ProcessMessages;
  end;
end;

响应消息而已Application.ProcessMessages;
[解决办法]
晕，写错了，把Sleep(3000);这行删掉。应该是这样


 begin
   Application.Initialize;
   Form1:=TForm1.Create(Form1);
   Form1.ShowModel;
   
   Application.CreateForm(TForm2, Form2);
   Form1.Hide;
   Form1.Free;
   Application.CreateForm(TForm1, Form1);
   Application.Run;
  end.

查看更多 下一篇