Советы по Delphi



Помещение изображения в буфер обмена


    var BMP: TBitmap;hBmp:HBITMAP; begin BMP := TBitmap.Create; BMP.LoadFromFile('имя файла');
hBmp:=BMP.Handle;
Clipboard.Assign(BMP); {здесь освобождаем объекты} end;

(Очевидно) Clipboard.Assign требует наличия HBITMAP, и чтобы он создавался не LoadFromFile, но HBITMAP создается при ссылке на BMP.Handle. (Примеры в документации - Clipboard.Assign(aTImage.Picture); у нас уже создан дескриптор окна.)

Надеюсь, это поможет.

- Dave Ullrich




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