为什么无法显示动态产生的图片,而且显示找不到图片的错误

Question

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
    myimage: Timage;
begin
    myimage:=Timage.Create(self);
    myimage.Left:=x;           {创建位置}
    myimage.Top:=y;
//    myimage.Width:=50;
//    myimage.height:=50;
    myimage.AutoSize := True;
    myimage.picture.LoadFromFile('c:\windows\Tiles.bmp');
    myimage.parent:=self;
end;

Answer 1

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
    myimage: Timage;
begin
    myimage:=Timage.Create(self);
    myimage.Left:=x;           {创建位置}
    myimage.Top:=y;
//    myimage.Width:=50;
//    myimage.height:=50;
    myimage.AutoSize := True;
    myimage.picture.LoadFromFile('c:\windows\Tiles.bmp');
    myimage.parent:=self;
end;

Answer 2

parent属性指定有问题,应该在创建后即指定为form1,然后再赋left,top,height,width属性

Answer 3

你这样指定的位置是当前可执行文件所在目录下的文件名称，相当于ExtractFileDir(Application.ExeName) + 'lao.bmp'

Answer 4

你先测试我的代码，通过后再说！
还有你的Form上有没有其他东东
不要不能截获这个事件你还在忙

Answer 5

把 zswang(伴水)(需要充充电)的
   myimage.picture.LoadFromFile('c:\windows\Tiles.bmp');
该为
  myimage.picture.LoadFromFile(GetCurrentDir+图片文件名);
//在当前.exe文件路径下读取图片文件
//GetCurrentDir取得正在运行.exe文件路径    

Answer 6

另外别忘了在uses单元加入你所引用的bmp文件的识别单元如jpeg等等.

Answer 7

我是在一个IMAGE上动态产生图片

Answer 8

好像IMAGE是不可以作为容器的把

Answer 9

可能已经显示出来了，你看不到，因为你用的是Image1的MouseDOwn属性，它的X和Ｙ是相对于它自己的边界的，不是相对于窗体的，你把它转换成窗体的坐标试试

Answer 10

我在WIN2K+DELPHI 4 下面运行了楼上的代码，用绝对路径，显示图片成功你的图片找不到，估计是图片的路径没有完全，试试在生成图片之后暂停一秒再LoadFromFile不关坐标的事，也不关大小的事你把生成图片的完整代码贴出来看看？

Answer 11

if bs.radiobutton1.checked then
    begin
    myimage:=Timage.Create(self);
    myimage.parent:=self;
    myimage.Left:=x;           {创建位置}
    myimage.Top:=y;
    myimage.height:=50;
    myimage.width:=50;
    inc(counter1);
    myimage.picture.LoadFromFile('as.bmp');
    myimage.Name:='wz'+inttostr(counter1);
    end;

Answer 12

完整代码 procedure Tdz.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  myimage:timage;
  pt:tpoint;
  begin
   if button=mbleft then
   begin
   if bs.radiobutton1.checked then
    begin
    myimage:=Timage.Create(self);
    myimage.parent:=self;
    myimage.Left:=x;           {创建位置}
    myimage.Top:=y;
    myimage.height:=50;
    myimage.width:=50;
    inc(counter1);
    myimage.picture.LoadFromFile('as.bmp');
    myimage.Name:='wz'+inttostr(counter1);
    end;
  end;
end;

Answer 13

你跟踪一下看哪个地方出的错？可能是你的路径不对，你要用相对路径可以用
LoadFromFile(extractfilepath(Application.ExeName)+'as.bmp');

Answer 14

我要在一张IMAGE上生成好多的小图标，但是相对路是对的，却告诉我找补到图片，而用绝对路径却显示不出来

Answer 15

Panel上不能放动态生成的组件吗