Скачать: CL | DM;

Запрет вставки из буфера в 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. Но это если надо блокировать ввод с клавиатуры. Тебе вроде это и надо.

---

← →
inic ©   (2004-05-21 16:48) [9]

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

---

← →
ega23 ©   (2004-05-21 16:49) [10]

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;
все равно вставляет...
может я что-то не так делаю?

---

← →
WebErr ©   (2004-05-21 17:50) [12]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.02 c