Copiar un formulario al portapapeles en tiempo de ejecución

[ecfisa]

Hola Angel.

#include <clipbrd.hpp>

void WinCtrlToClipbrd(TWinControl *aWinCtrl)
{
  HDC hdcSrc = GetWindowDC(aWinCtrl->Handle);
  Graphics::TBitmap *BM = new Graphics::TBitmap;

  BM->Width  = aWinCtrl->Width;
  BM->Height = aWinCtrl->Height;
  BitBlt(BM->Canvas->Handle, 0, 0, BM->Width, BM->Height, 
    hdcSrc, 0, 0, SRCCOPY);
  Clipboard()->Assign(BM);

  ReleaseDC(aWinCtrl->Handle, hdcSrc);
  delete BM;
}

Ejemplo de uso:

  WinCtrlToClipbrd(Form1);
  WinCtrlToClipbrd(Memo1);
  // etc ...

Saludos

[Angel.Matilla]

Muchísimas gracias.