登陆系统前播放动画

Question

我想在登陆系统前播放一段动画，问:
1.动画播放多长时间合适？
2.有几种实现方式？在线等待....

Answer 1

1.个人认为不易太长，因为登录窗口只是装饰程序的，不能出现维纳斯之手的现象，即使很长，也应该设置一个功能，可以跳过动画直接进入主系统
2.做一个登录窗口，在登录窗口界面上加一个ShockwaveFlash用来播放flash动画

Answer 2

lovelymelon(小人物)
的说法就很好！！

Answer 3

我想在工程文件中动态生成该FORM，显示它，播放动画，关闭后，运行主程序
现在窗体倒是出来了，但是在此窗体上创建的其他组件，不如:label，文本不能显示
用image加载的图片也不能正常显示，为什么？
同时，谢谢大家，参与有分。

Answer 4

不会吧，怎么会不显示，
Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TDmMain, DmMain);
  frmdl:=tfrmdl.Create(application);
  frmdl.ShowModal;  //frmdl你不要自动生成
  Application.CreateForm(TFrmXzczy, FrmXzczy);
  Application.Run;

Answer 5

TO:cow8063(吴七郎) 我是按你的方式创建了窗体，也可以实现播放动画了，但1.怎样实现视频（我播放的是*.avi文件），按任意窗口大小比例播放（现在我没有最大化时候，有一部分图象没有在播放窗口之中）？
2.播放窗体关闭时候出错，我也先停止播放了，但还是出错，为什么？大家也帮我看看哦

Answer 6

那要释放(FREE)资源,如上例.  FRMD1窗口在关闭事件中加上  ACTION := FREE;
                                                       FRMD1 := NIL;
就OK!

Answer 7

to liqxdt() 
我试了，不行呀
给我来段代码参考可以吗？现在我是发现播放大一点的视频，中途停止或播放完毕后退出系统都会出错  
谢谢

Answer 8

你既然是动态创建的窗口，最好是遍历所有的组件，把它们FREE掉，然后再Free掉窗口.

Answer 9

to geyobing(银翼天使) 
不，我是按 cow8063(吴七郎) 的方法创建，好，我试试吧

Answer 10

unit Unit27;interfaceuses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ComCtrls, OleCtrls, ActiveXPlugin_TLB,
 ExtCtrls, MPlayer, StdCtrls;type
 TF_Tempform = class(TForm)
   MediaPlayer1: TMediaPlayer;
   Panel1: TPanel;
   Timer1: TTimer;
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure MediaPlayer1Notify(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
   procedure FormShow(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;var
 F_Tempform: TF_Tempform;implementation{$R *.dfm}procedure TF_Tempform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 mediaplayer1.Close;   －－－－－------------------------------》执行到此处出错
end;
//播放完毕后关闭窗体
procedure TF_Tempform.MediaPlayer1Notify(Sender: TObject);
begin
// MessageDlg('播放完成', mtInformation, [mbOk], 0);
 close;
end;
//用 Timer控制播放时间
procedure TF_Tempform.Timer1Timer(Sender: TObject);
begin
 if timer1.Interval=11500 then
   begin
     mediaplayer1.Stop;
     close;
   end
 else
   begin
     try
       mediaplayer1.Play;
       timer1.Interval:=11500;
     except
       close;
     end;
   end;
end;procedure TF_Tempform.FormShow(Sender: TObject);
begin
 mediaplayer1.FileName:='E:\课件管理系统\client\temp\speedis.AVI';
 try
 with  mediaplayer1 do
   begin
     Open;
     DisplayRect := Rect(0, 0, Panel1.Width, Panel1.Height);
     Notify := True;
   end;
 mediaplayer1.Play;
 except
   showmessage('无法打开MCI设备');
 end;end;end.