¿Cómo ... funciona BitBlt?

[ElDuc]

Hola a todos.

Intento copiar elcontenido del bitmap de un TImage a otro y no hay manera.

Yo creo que este procedimiento debería hacerlo, pero que no quiere.

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
begin
   Try
     BitBlt(Image2.Picture.Bitmap.Canvas.Handle,0,0,Image1.Width,Image1.Height,Image1.Picture.Bitmap.Canv  as.Handle,0,0,SRCCOPY);
   finally
     ReleaseDC(0,Image1.Picture.Bitmap.Canvas.Handle);
     end;
end;

¿Alguien puede ayudarme?

[ElDuc]

Por cierto me dejé deciros que lo que sucede es que desaparecen los 2 TImage

[*Caro*]

Hola, puedes también hacerlo así:

Código Delphi [-]
  Image2.Picture.Assign(Image1.Picture);

Saluditos

[ElDuc]

Gracias, pero este sistema no me permite copiar un trozo concreto.

¿O sí?

[[cHackAll]]

No uses BitBlt, usa TCanvas.CopyRect

[[escafandra]]

Mitra este código. Muestra como pintar directamente en un TPanel, o donde quieras:

HDC dc = GetDC(Panel1->Handle); 
BitBlt(dc, 0,0, Panel1->Width,Panel1->Height, Image1->Canvas->Handle, 0,0, SRCCOPY); 
ReleaseDC(Panel1->Handle, dc);

El problema está en que deberías actualizar el evento paint porque sino la imagen no se repinta y se perderá. De aquí que no deberías usarlo como dice cHackAll. es mas cómodo lo que te comenta.

Saludos.