IClipboard.Text

Синтаксис

Text: String;

Описание

Свойство Text определяет текст, содержащийся в буфере обмена.

Пример

Для выполнения примера предполагается наличие формы и расположенной на ней кнопки с наименованием "Button1".

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

Cl: Clipboard;

Begin

Cl := New Clipboard.Create;

If Cl.HasText Then

Debug.WriteLine(Cl.Text);

End If;

End Sub Button1OnClick;

После выполнения примера при нажатии на кнопку, если в буфере обмена содержится текстовая информация, то она будет выведена в консоль среды разработки.

См.также:

IClipboard