Советы по Delphi



Форма как графический объект


Каким образом можно скопировать форму в буфер обмена в виде графического изображения?

    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;
[000041]




Содержание  Назад  Вперед