Статистика |
Онлайн всего: 2 Гостей: 2 Пользователей: 0 |
|
| | | | КАК УЗНАТЬ БЫЛ ЛИ ВСТАВЛЕН ТЕКСТ ИЗ CLIPBOARD? | | Как оказалось, это проверить просто: | | //необходимо подключить модуль для работы с буфером обмена
uses Clipbrd; | | Далее, в обработчике событий OnChange компонента Edit1 запишем следующий код: | | procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text=Clipboard.AsText
then
ShowMessage('Текст вставлен из буфера обмена');
end; |
|