Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

TPaintBox в буфер обмена

01.01.2007
Автор: Xavier Pacheco

var
  pbRect
: TRect;
begin
  pbRect
:= Rect(0, 0, PaintBox1.Width, PaintBox1.Height);
 
BitMap := TBitMap.Create;
 
try
   
Bitmap.Width := PaintBox1.Width;
   
Bitmap.Height := PaintBox1.Height;
   
BitMap.Canvas.CopyRect(pbRect, PaintBox1.Canvas, pbRect);
   
ClipBoard.Assign(BitMap);
 
finally
   
BitMap.Free;
 
end;
end;
 
 

https://delphiworld.narod.ru/

DelphiWorld 6.0