[Ogurcofff]

Я понимаю что тема обсуждалась много раз, но все таки есть вопросы:
1. Запрет вставки содержимого буфера используя ctrl+V

Нашел ответ. Это помогло.

Код:

uses Clipbrd, ...
 
 //disable CTRL + V ("Paste") :: handles Edit1.OnKeyDown
 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState) ;
 begin
   if ((ssCtrl in Shift) AND (Key = ord('V'))) then
   begin
     if Clipboard.HasFormat(CF_TEXT) then ClipBoard.Clear;
 
     Edit1.SelText := '"Paste" DISABLED!';
 
     Key := 0;
   end;
 end;

2. Заперт вставки из буфера через PpopupMenu

Нашел ответ. Создал свое PopupMenu и в events Edit-а его установил. Теперь через него не вставишь ничего.

3. Но осталось сочетание Shift+Insert. Ни как не могу понять как запретить вставку из буфера через это сочетание.

P.S. программа работает только с цифровыми данными, поэтому хотелось бы предотвратить возможные будущие сбои.

[Pyro]

PHP код:

if Key = VK_INSERT then key := 0; 


[Ogurcofff]

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

PHP код:

if Key = VK_INSERT then key := 0; 


Блин круто. Я и не знал о таком.
Ну тогда наверное и на ctrl+V можно так сделать?

[x128]

Как вариан, в обработчике OnKeyDown для Edit-а:

Код:

TEdit(Sender).ReadOnly:=(Shift=[ssShift]) or (Shift=[ssCtrl]);

[Ogurcofff]

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

Как вариан, в обработчике OnKeyDown для Edit-а:

Код:

TEdit(Sender).ReadOnly:=(Shift=[ssShift]) or (Shift=[ssCtrl]);

А так вообще круто. Эта строка заглушила все возможные варианты вставки из буфера. Вот спасибо!!!!