MensajePublicado: Jue 16 Ene, 2014 10:22 am    Asunto: Copiar un formulario al portapapeles en tiempo de ejecución Responder citando
Código:
#include <clipbrd>

Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
HDC hdcSrc = GetWindowDC(this->Handle);

pBitmap->Width  = this->Width;
pBitmap->Height = this->Height;
BitBlt(pBitmap->Canvas->Handle, 0, 0, pBitmap->Width, pBitmap->Height, hdcSrc, 0, 0, SRCCOPY);
Clipboard()->Assign(pBitmap);
ReleaseDC(this->Handle, hdcSrc);
delete pBitmap;

Por ecfisa de Foros Club Delphi
_________________
Un saludo

Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)