谁能做出动画显示Label的效果,就像动画显示窗体一样(AnimateWindow(form2.Handle,500,AW_BLEND or AW_CENTER);) 做成动太gif,再用控件显示.gif文件也可以啊或做成flash.swf文件 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 使用 AnimateWindow 应在TPanel的Create事件中,或其他有句柄的组件中。可以定制一个TPanel. 嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻以实为证嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻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上放标签//其实用算法实现也不难 cxGrid在编辑状态下不能在光标处直接输入 delphi 新增sheet问题 fastreport 3.07 纸张长度调整 数据库载入数据 新手问题。 软考通过。散分!! 简单的窗体问题...... can not file tihelp32.dcu? 鼠标Hook问题 服务器与多客户端如何通讯,如向客户端发送关机指令 请教在Treeview中如何检查指定结点下面是否存在指定的子结点 那里有delphi6 for linux 下载? 如何在StirngGrid的单元格中保存一记录型变量的值?
可以定制一个TPanel.
嘻嘻嘻以实为证嘻嘻嘻嘻
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻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上放标签//其实用算法实现也不难