Советы по Delphi


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


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

uses clipbrd;

procedure TShowVRML.Kopieren1Click(Sender: TObject);
var bitmap:tbitmap;
begin
bitmap:=tbitmap.create;bitmap.width:=clientwidth;bitmap.height:=clientheight;trywith bitmap.Canvas doCopyRect (clientrect,canvas,clientrect);clipboard.assign(bitmap);finallybitmap.free;end;
end;
[000041]




Начало  Назад  Вперед



Книжный магазин