bmp:tbitmap;
     for i:=0 to bmp.Width do
     for j:=0 to bmp.Height do
    begin
          Bmp.Canvas.Pixels[i,j]:=clgreen;
    end;图片没反应??错愕
waiting on line

解决方案 »

  1.   

    bmp:=TBitmap.create;
    把你的完整代码贴出来,
    试一下加上一句image1.picture.bitmap.assign(bmp);
      

  2.   

    procedure TForm1.FormShow(Sender: TObject);
    var
       bmp:tbitmap;
       i,j:Integer;
    begin
      bmp := TBitmap.create;
      bmp := image1.picture.Bitmap;
      for i:=0 to bmp.Width do
        for j:=0 to bmp.Height do
        begin
          bmp.Canvas.Pixels[i,j]:=clgreen;
        end;//图片有反应
    end;
      

  3.   

    看来大家已经大重点说出来了,我想这个问题应该是很普遍的。
    变量没初始化就用。你的bmp就是没有Create啊!!还没分配内存空间呢!!