Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 27.04.2012, 12:04
Ogurcofff Ogurcofff вне форума
Прохожий
 
Регистрация: 28.07.2011
Сообщения: 34
Репутация: 12
По умолчанию Запрет вставки из буфера в Edit

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:13.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025