动态创建timage组件时出错,为什么?详细代码请进...

procedure TForm1.Button1Click(Sender: TObject);
var img1:timage;
begin
  img1:=timage.create(self);
  img1.picture.loadfromfile('c:\windows\system\Nwdrvlgo.bmp');
  img1.stretch:=true;
  img1.left:=200;
  img1.top:=200;
  img1.parent:=form1;
  showmessage('ok');
  img1.free;
end;

8 个解决方案

#1

只要bmp文件存在并且能够打开,就没有问题了

#2

没有问题，我试过了，你提示什么错误？不是文件没找到吧?

#3

在第2行时就出错，提示：undeclared identifier:timage
(var img1:timage)

#4

试过你的代码，只要文件存在是没有问题的。

#5

包含ExtCtrls了么？

#6

是不是没有引用所需单元

#7

请问ExtCtrls起什么作用

#8

在uses处加上ExtCtrls就好使!因为image控件的原码在ExtCtrls.pas中!

#1