Question

我有一个表格“TForm1”有一个“TAnimate1”。我有一个AVI资源作为文件名“Animate 01.avi”，资源标识符为“AVI”，一个“动画光标”为文件名“Cursor 01.ani”，资源标识符为“8”。我希望播放“Animate 01。 avi“on”FormCreate“事件并将默认光标设置为”8“。我正在使用“Delphi XE2”。

请从“http://hotfile.com/dl/137675080/34f701f/KoushikHalder01.7z.html”下载我的项目文件，并告知在哪里纠正。

Answer 1

好的，下载了......

首先，您将avi放入'RCDATA'部分。正如我已经说过的那样，这是行不通的。 animate控件加载AVI类型的avi文件。所以这一行

AVI RCDATA "KoushikHalder.avi"

你的'.rc'文件中的

应该是：

AVI AVI "KoushikHalder.avi"

您可以为ID添加任何内容，但资源类型应为 AVI 。

其次，您将通过其资源标识符加载avi。你给它一个'AVI'标识符。所以代码中的这一行：

Animate01.ResName :='KoushikHalder.avi';

实际上应该是：

Animate01.ResName :='AVI';

第三，您的'.ani'文件不符合标准。有关详细信息，请参阅this question。除非您更正，否则您将无法加载该ani文件。

第四，您没有正确加载ani文件。它的标识符不是'8'，它是8.所以下面一行：

Screen.Cursors[8] := LoadCursor(HInstance, '8');

应该是

Screen.Cursors[8] := LoadCursor(HInstance, MakeIntResource(8));

（或指针（8）..）。

最后，你必须将光标设置在你的ani文件的某个位置，以便你可以看到它。例如：

Screen.Cursor := 8;

或

BitBtn01.Cursor := 8;

我希望这有帮助...

动画光标播放

1 个答案: