Копирайте прозореца на изображението

копирате прозореца на изображението

който знае как да копирате изображение от друг прозорец, или желаната част, ако е налице самата различен прозорец, т.е. не се показва

Изпрати прозорец със съобщение или WM_PRINTCLIENT WM_PRINT

прозореца ми се копира. но някой друг по някаква причина не работи, ето част от код. Обяснете този пример. Благодарим Ви!

BM1: = TBitMap.Create;
bm1.Width: = rMain.Right;
bm1Height: = rMain.Bottom;
# XA0; PD.Parent: = Н;
# XA0; bm1.Canvas.Lock;
# XA0; # XA0; PD.DC: = bm1.Canvas.Handle;
# XA0; # XA0; SendMessage (з, WM_ERASEBKGND, число (PD.DC), 0);
# XA0; # XA0; SendMessage (з, WM_PAINT, число (PD.DC), 0);
# XA0; bm1.Canvas.Unlock;
form1.Canvas.Draw (0,0, BM1);

> Изпращане на прозорец със съобщение или WM_PRINTCLIENT WM_PRINT

Бяла bitmar резултат при изпращане на прозорец на някой друг

> SendMessage (з, WM_PRINTCLIENT, число (PD.DC), PRF_NONCLIENT);

ви помоля за един прозорец отпечатате му не-клиент площ от съобщението отпечатате клиентската област.

вместо PRF_NONCLIENT сложи PRF_CLIENT или PRF_CHILDREN

там [2] точно я поправите?
Hendl <>0 странен прозорец към други съобщения като gettext реагира

ето още една добавка
тип
PPaintData = ^ TPaintData;
TPaintData = рекорд
# XA0; Родител: HWND;
# XA0; DC: HDC;
приключи;

Памет: 0.73 MB
Време: 0.073 гр