Foros Club Delphi - Copiar un formulario al portapapeles en tiempo de ejecución

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Copiar un formulario al portapapeles en tiempo de ejecución (https://www.clubdelphi.com/foros/showthread.php?t=85019)

Copiar un formulario al portapapeles en tiempo de ejecución

En tiempo de ejecución ¿Cómo podría copiar el formulario activo al portapapeles para pegarlo luego en otro sitio? Estoy usando C++ 6.

Hola Angel.

Código:

#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:

Código:

  WinCtrlToClipbrd(Form1);

  WinCtrlToClipbrd(Memo1);

  // etc ...

Saludos :)

Muchísimas gracias.