Скопировать изображение формы

Материал из DRKB

Скопировать изображение формы[править | править код]

uses clipbrd;

procedure TShowVRML.Kopieren1Click(Sender: TObject);
var
  bitmap: TBitmap;
begin
  bitmap := TBitmap.Create;
  bitmap.Width := ClientWidth;
  bitmap.Height := ClientHeight;
  try
    with bitmap.Canvas do
      CopyRect(ClientRect, Canvas, ClientRect);
    Clipboard.Assign(bitmap);
  finally
    bitmap.Free;
  end;
end;


Source: http://delphiworld.narod.ru/
ID: 01914