Я понимаю что тема обсуждалась много раз, но все таки есть вопросы:
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. программа работает только с цифровыми данными, поэтому хотелось бы предотвратить возможные будущие сбои.