...

Листинг 8.5.

Копирование текстовой информации

procedure TFormClipboard.bnCopyTextAsTextClick(Sender: TObject);

begin

//Если в буфере текст, то выводим его в поле редактора

if Clipboard.HasFormat(CF_Text)

then MemoText := Clipboard.AsText

end;

При работе с графическими компонентами для операций, связанных с обменом информацией через общую область, удобно использовать метод Assign. Процедура Assign (Source: TPers is tent) присваивает буферу обмена объект, указанный параметром Source. Если объект является изображением и принадлежит таким графическим классам, как TBitmap, TPicture или TMetaf ile, то в буфер обмена копируется изображение установленного формата. Для извлечения изображения также может использоваться метод Assign.

Пример использования буфера обмена для копирования изображений проводится в листинге 8.6.

Загрузка...