請問若只寫 bitmap1:=Tbitmap.Create; for i:=0 to 10 do for j:=0 to 100 do begin BitMap1.Canvas.Pixels[i, j] :=RGB(255, 255, 0); end; 其bitmap1無相應之資料 需Assign一些值才能正確得到，請問為何？ BitMap1.Assign(image1.Picture.Bitmap); 謝謝

不知道您到底想做什么，不知道下面是不是您想要的 procedure TForm1.Button1Click(Sender: TObject); var bitmap1:Tbitmap; i,j:integer; begin bitmap1:=Tbitmap.Create; BitMap1.Assign(image1.Picture.Bitmap); for i:=0 to 10 do for j:=0 to 100 do begin BitMap1.Canvas.Pixels[i, j] :=RGB(255, 255, 0); end; image1.Picture.Assign(bitmap1); bitmap1.Free ; end;

引言: 不知道您到底想做什么，不知道下面是不是您想要的 procedure TForm1.Button1Click(Sender: TObject); var bitmap1:Tbitmap; i,j:integer; begin bitmap1:=Tbitmap.Create; BitMap1.Assign(image1.Picture.Bitmap);<==我想問的是為何要加此行？ for i:=0 to 10 do for j:=0 to 100 do begin BitMap1.Canvas.Pixels[i, j] :=RGB(255, 255, 0); end; image1.Picture.Assign(bitmap1); bitmap1.Free ; end;

BitMap1.Assign(image1.Picture.Bitmap);<==我想問的是為何要加此行？ 将image1中位图数据赋给您定义的bitmap1的位图对象呀！

這樣就好了不是嗎? 何必多一道手續

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
for i:=0 to 10 do
for j:=0 to 100 do
begin
image1.Canvas.Pixels[i, j] :=RGB(255, 255, 0);
end;
end;    

我總看的奇怪，為何要assign一張圖進來再畫紫色的框.......為什麼不這樣做呢 bitmap1:=Tbitmap.Create; bitmap1.canvas.brush.color:=RGB(255,255,0); bitmap1.width := 10; bitmap1.height:=100; 一樣可以達到效果..