Código Delphi [-] var x, y : word; begin // Obtengo corrdenadas para dibujar a derecha del boton PosicionConRespectoAlBoton(Boton1, x, y); with TCanvas.Create do begin try Handle := GetDC(0); Draw(x, y, Image1.Picture.Bitmap); finally Free; end; end; end;
var x, y : word; begin // Obtengo corrdenadas para dibujar a derecha del boton PosicionConRespectoAlBoton(Boton1, x, y); with TCanvas.Create do begin try Handle := GetDC(0); Draw(x, y, Image1.Picture.Bitmap); finally Free; end; end; end;