Как узнать был ли вставлен текст из ClipBoard?

[Dux]

Такая проблема, на форме есть Edit, необходимо определить был ли вставлен в него текст из буфера обмена. Есть идеи?

[mihali4]

Сравнить содержимое буфера и эдита.

[Dux]

Сообщение от mihali4

Сравнить содержимое буфера и эдита.

Дайте примерчик, если не сложно

[mihali4]

Пожалуйста:

uses ...., Clipbrd;
...
if ClipBoard.AsText=Edit1.Text then
Label1.Caption:='Текст из буфера вставлен' else
Label1.Caption:='Текст из буфера не вставлен';

[Arkuz]

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Clipbrd; //подключите модуль работы с буфером

...............

procedure TForm1.Edit1Change(Sender: TObject);
begin
 if Edit1.Text=Clipboard.AsText
   then ShowMessage('В Edit1 содержится текст из буфера обмена');
end;

Всё...

[Dux]

Спасибо, однако, как выяснилось, это не сильно мне помогло...

[mihali4]

Сообщение от Dux

Спасибо, однако, как выяснилось, это не сильно мне помогло...

То есть? В чем проблема теперь?

[Dux]

Да дело в том, что в обработчике OnChange компонента Edit работает сложный алгоритм с несколькими циклами и работать он должен по разному, в зависимости от того, как вводится текст (выбирается из списка, вводится вручную, либо вставляется из clipboard). Сказать честно, уже сам немного запутался...

[mihali4]

А вы введите некую глобальную переменную под названием "тип ввода" TYPVVOD и присваивайте ей разные значения в зависимости от того, каким способом ввода оператор (юзер) воспользуется.
Тогда "в обработчике OnChange компонента Edit" останется только поставить CASE...OF

[mutabor]

Ну да, все просто. Способ вам уже известен, осталось только правильно применить.
В OnChange вставьте этот код

if ClipBoard.AsText=Edit1.Text then 
  {был ввод из буфера, применяем соотв. алгоритм}
else
  {тут дальше проверки, применяем другие алгоритмы}

Тут правда есть один нюанс, в буфере может быть тот же текст какой пользователь набрал от руки.