dear all:       我把 bitmap1的每個pixel愈塞到bitmap2的每個pixel裡,然後用image2顯示出圖案,但不知為何無法把值塞到bitmap2的每個pixel裡,圖變成白色的,但是如果改用image1的pixel塞到image2的pixel就可以正常顯示了,為什麼呢?        

 
 unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;    type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    bitmap1:Tbitmap;
    bitmap2:Tbitmap;
    parray : array [1..100] of array [1..100] of integer;
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin         bitmap1:=tbitmap.create;
     bitmap1.LoadFromFile('C:\Red.bmp');
     image1.Canvas.StretchDraw(Rect(0,0,100,100),bitmap1);
     for i :=1 to 100 do
     begin
       for j:=1 to 100 do
       begin
          //parray[i][j]:=image1.Canvas.Pixels[i,j];
          parray[i][j]:=bitmap1.Canvas.Pixels[i,j];
          memo1.Lines.Add(inttostr(parray[i][j]));
          //memo2.Lines.Add(inttostr(bitmap1.Canvas.Pixels[i,j]));
       end;
     end;         bitmap1.Free;
end;    procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
      bitmap2:=Tbitmap.Create;
      for i:= 1 to 100 do
      begin
        for j:=1 to 100 do
        begin
           //bitmap2.Canvas.Pixels[i,j]:=parray[i][j];
           image2.Canvas.Pixels[i,j]:=parray[i][j];
           //memo2.Lines.Add(inttostr(parray[i][j]));
        end;
      end;
      image2.Canvas.StretchDraw(Rect(0,0,100,100),bitmap2);
end;    end.     

bitmap2:=Tbitmap.Create; bitmap2.PixelFormat:=pf8bit;

PixelFormat 必須相同 然後您也沒定義 Width Height 當然白茫茫。 bitmap2.PixelFormat:=bitmap1.PixelFormat; bitmap2.Width:=bitmap1.Width; bitmap2.Height:=bitmap1.Height; ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～