![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Я понимаю что тема обсуждалась много раз, но все таки есть вопросы:
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. программа работает только с цифровыми данными, поэтому хотелось бы предотвратить возможные будущие сбои. |