Запрет вставки из буфера в TEdit

← →
yozhik (2004-05-21 15:54) [0]

Уважаемые мастера, помогите решить задачку...
Нужно запретить вставку из буфера для TEdit

← →
ega23 © (2004-05-21 15:56) [1]

простейший способ: TEdit.Enabled:=Flase; :о)

← →
yozhik (2004-05-21 15:58) [2]

нежун запрет только для вставки из буфера, остально должно работать

← →
ega23 © (2004-05-21 16:02) [3]

А зачем такие мучения пользователю? Вот лично я в 70% случаев пользуюсь вставкой (если есть откуда скопировать).

← →
ega23 © (2004-05-21 16:03) [4]

А вообще, если действительно так необходимо, перехватывай WM_PASTE для твоего Edit"а

← →
yozhik (2004-05-21 16:20) [5]

1. Для того что-бы данные считывали с ШК
2. Каким образом его перехватить

← →
inic © (2004-05-21 16:27) [6]

TMyEdit = class(TEdit) private procedure WMPaste (var Msg: TMessage); message WM_PASTE; end; ... procedure TMyEdit.WMPaste (...); begin end;

← →
ega23 © (2004-05-21 16:32) [7]

inic © (21.05.04 16:27) [6]
Зачем так сложно? Это компонент свой создавать надо...
Бери ApplicationEvents с вкладки Additional, кидай на форму.
У него есть событие OnMessage. Там пиши следующее:

if (Msg.hwnd=ТвойEdit.Handle) and (Msg.message=WM_PASTE) then Handled:=True;

← →
Pa5ha (2004-05-21 16:45) [8]

Да че вы все паритесь и мозги парню делаете? Все просто: на событие OnPress проверяй Key на CTRL+V и если =, то присвой например 0. Но это если надо блокировать ввод с клавиатуры. Тебе вроде это и надо.

> Pa5ha
Почему только с клавиатуры???

Pa5ha (21.05.04 16:45) [8]
Кроме Ctrl+V есть ещё Shift+Ins, а также клик правой кнопкой по Edit"у (появится PopUp Menu, где будет "Вставить").
Так что не всё так просто...

← →
yozhik (2004-05-21 17:23) [11]

if frmIncomeTransfer<>nil then
if (Msg.hwnd=frmIncomeTransfer.eBarcode.Handle) and (Msg.message=WM_PASTE) then
begin
Handled:=True;
frmIncomeTransfer.eBarcode.Text := "";
end;
все равно вставляет...
может я что-то не так делаю?

> на событие OnPress проверяй Key на CTRL+V

Как же Вы отловите Ctrl+V в OnKeyPress ? :))))

Запрет вставки из буфера в TEdit Найти похожие ветки