13,825
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm1::Button2Click(TObject *Sender)
{
String s;
s = this->ComboBox1->Text;
TForm *frm;
TImage *img;
img = dynamic_cast<TImage*> ( this->FindComponent(s)); //¸ù¾ÝÃû×ÖÕҿؼþ
if( img == NULL )
{
ShowMessage("not find");
return;
}
frm = new TForm( Application );
img->Parent = frm;
frm->ShowModal();
delete frm;
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//图片文件名字
ComboBox1->Items->Clear();
ComboBox1->Items->Add("图片1.bmp");
ComboBox1->Items->Add("图片2.bmp");
ComboBox1->Items->Add("图片3.bmp");
ComboBox1->Items->Add("图片4.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TForm *frm;
frm = new TForm( Application );
TImage *img;
img = new TImage(frm);
img->Name = "myimg";//控件名字
img->Parent = frm;
img->Picture->LoadFromFile( this->ComboBox1->Text );//加载选择的图片
frm->ShowModal();
delete frm;
}