Получить изображение формы в виде Bitmap и поместить его в буфер обмена

Советы » Буфер обмена » Получить изображение формы в виде Bitmap и поместить его в буфер обмена

// Copy form1 as bitmap into the clipboard 
// Kopiert Form1 als Bitmap in die Zwischenablage 

procedure

TForm1.Button1Click(Sender: TObject); var

imgWindow: TBitmap; begin

imgWindow := GetFormImage; try

Clipboard.Assign(imgWindow); finally

imgWindow.Free; end

; end

; // Save the bitmap to a file // Das Bitmap in einer Datei speichern: procedure

TForm1.Button2Click(Sender: TObject); var

imgWindow: TBitmap; begin

imgWindow := TBitmap.Create; try

imgWindow := Form1.GetFormImage; imgWindow.SaveToFile('c:FormImage.bmp'); finally

imgWindow.Free; end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com