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