Копирование графики
Листинг 13.23.Копирование графики из буфера обмена procedure TForm1.PasteButtonClick(Sender: TObject);
var
Bitmap: TBitmap; begin
if Clipboard.Provides(SDelphiBitmap) then { в буфере обмена
изображение? ) begin
Image1.Picture.Bitmap.Assign(Clipboard);
end; end;
Изображение, находящееся в буфере обмена, может быть скопировано из любого приложения.
Назад
Содержание
Вперед
