Скопировать изображение формы
Материал из 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