HasText: Boolean;
Метод HasText возвращает признак наличия в буфере обмена текстовой информации.
Для выполнения примера предполагается наличие формы и расположенной на ней кнопки с наименованием 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;
После выполнения примера при нажатии на кнопку если в буфере обмена содержится текстовая информация, то она будет выведена в консоль среды разработки.
См.также: