Как запретить в Edit копировать с буфера обмена?

@Адам32 · Регистрация: 31.05.2012

Студворк — интернет-сервис помощи студентам

На OnKeyPress кинул код:

Delphi

if not ( key in [ '.' , ',' , '!' , ':' , ';' , #8 ] ) then 
begin 
key:=#3 ; 
ShowMessage ('бла .. бла .. бла!') ; 
end;

Только проблемма, что можно в Edit копировать с буфера обмена другие символы.
Подскажите, как запретить копировать другие символы, какбэ фильтровать?

Добавлено через 1 час 4 минуты
Ответ на вопрос нашел. Тема закрыта.

Одиночка · 01.06.2012, 02:20

Так пиши ответ. Другим тоже пригодится.

@Адам32 · 01.06.2012, 03:28 **[ТС]**

OnChange:

Delphi

var
 a:Integer;
 s:TCaption;
begin
 a:=1;
 s:=Edit1.Text;
while a<>length(s)+1 do
begin
if pos(s[a],'.,!:;')=0 then
 delete(s,a,1) else
 Inc(a);
end;
 Edit1.Text:=s;
 Edit1.SelStart:=Length(s);
end;

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	01.06.2012, 02:20	2
	Так пиши ответ. Другим тоже пригодится. 0

	01.06.2012, 03:28

Опции темы