Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Компонент MainMenu
   Категория: Компоненты
  Быстрое копирование файлов
   Категория: Файловая система
  Подсветить часть текста в DBGrid
   Категория: Компоненты
  Компонент HotKey
   Категория: Компоненты
  Получить имена всех папок и файлов в директории
   Категория: Файловая система
  Сохраняем Bitmap в поле dbase
   Категория: Базы данных
  Как нарисовать календарь
   Категория: Текст и строки
  Последний день месяца
   Категория: Базы данных
  Подсчитать количество слов в строке
   Категория: Текст и строки

Delphi - База Знаний: Получить изображение формы в виде 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;
  << Вернуться к Содержанию