做成动太gif,再用控件显示.gif文件也可以啊
或做成flash.swf文件

解决方案 »

  1.   

    使用 AnimateWindow 应在TPanel的Create事件中,或其他有句柄的组件中。
    可以定制一个TPanel.
      

  2.   

    嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
    嘻嘻嘻以实为证嘻嘻嘻嘻
    嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻procedure TForm1.FormShow(Sender: TObject);
    begin
      AnimateWindow(Handle, 300, AW_ACTIVATE or AW_CENTER);
      AnimateWindow(Panel1.Handle, 300, AW_ACTIVATE or AW_CENTER);
    end;procedure TForm1.FormCreate(Sender: TObject);
    begin
      Panel1.Color := clRed;
      Panel1.Visible := False;
    end;//直接用Panel当标签,或者在Panel上放标签//其实用算法实现也不难