DelphiCode - КАК УЗНАТЬ БЫЛ ЛИ ВСТАВЛЕН ТЕКСТ ИЗ CLIPBOARD?


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