hola Craven
sin más que decir creo que el código que necesitas es similar al siguiente:
procedure TForm1.Button1Click(Sender: TObject);
Var
Bmp:TBitmap;
begin
Bmp:=Tbitmap.Create;
Bmp.Height:=100;
Bmp.Width:=100;
Bmp.Canvas.CopyRect(Rect(1,1,100,100),Canvas,Rect(1,1,100,100));
Bmp.SaveToFile('c:\bmp.bmp');
Bmp.Free;
end;
|