const TCommonAVI a[] =
{aviFindFolder, aviFindFile, aviFindComputer, aviCopyFiles, aviCopyFile,
aviRecycleFile, aviEmptyRecycle, aviDeleteFile};
?
const UnicodeString s[] =
{L"aviFindFolder", L"aviFindFile", L"aviFindComputer", L"aviCopyFiles",
L"aviCopyFile", L"aviRecycleFile", L"aviEmptyRecycle", L"aviDeleteFile"};
?// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
for (int i = 0; i < sizeof(s) / sizeof(UnicodeString); ++i)
this->ListBox1->Items->Add(s[i]);
this->Animate1->AutoSize = false; // 控制元件不自動調整大小以適應內容
}
?
// ---------------------------------------------------------------------------
// 串列框點擊一項
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
// 播放Windows公共AVI片段
this->Animate1->CommonAVI = a[this->ListBox1->ItemIndex];
this->Animate1->Active = true;
}
?
// ---------------------------------------------------------------------------
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/244921.html
標籤：VCL組件使用和開發
上一篇：java連接mysql時無法連接