bmp := TBitmap.Create; bmp.Transparent := True; bmp.LoadFromFile('startmenu.bmp'); for i :=0 to bmp.Width-1 do for j := 0 to bmp.Height-1 do begin if bmp.Canvas.Pixels[i,j] <> clWhite then ImgStart.Canvas.Pixels[i,j] := bmp.Canvas.Pixels[i,j]; end;但不知道为什么不行!
有没有这样的例子!
bmp.Transparent := True;
bmp.LoadFromFile('startmenu.bmp'); for i :=0 to bmp.Width-1 do
for j := 0 to bmp.Height-1 do
begin
if bmp.Canvas.Pixels[i,j] <> clWhite then
ImgStart.Canvas.Pixels[i,j] := bmp.Canvas.Pixels[i,j];
end;但不知道为什么不行!