| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос по свойству KeyPress [D7, XP]

MaxX ©   (2009-01-27 14:41:00) 

Можно ли запретить ввод символов, но при этом разрешить выполнять Copy/Paste в TEdit ?

В таком варианте, текст не вырезается и не вставляется ...
Помогите переделать...

 if not (Key in ['0','1','2','3','4','5','6','7','8','9']) then
   Key:=#0;

---

{RASkov}   (2009-01-27 16:33:00) [1]

> [12] MaxX   (27.01.09 15:44)

Ну вот примерно так можно попробывать:
unit Unit2;
interface
uses Windows, Messages, StdCtrls;

const EM_AFTERPASTE = WM_USER+10;
     PASTE_CODE    = 22;
     MAX_LENGTH    = 10;

type
 TMyEdit = class(TEdit)
 protected
   procedure KeyPress(var Key: Char); override;
   procedure WndProc(var Mes: TMessage); override;
 end;

implementation

{ TMyEdit }
procedure TMyEdit.KeyPress(var Key: Char);
begin
 inherited;
 if ORD(Key) = PASTE_CODE then Exit;
 if not (Key in ['0'..'9', #8]) then Key:=#0 else
  if ((Length(Text)>MAX_LENGTH-1) and (Key<>#8)) then
   if SelStart<MAX_LENGTH then SelLength:=1 else Key:=#0;
end;

procedure TMyEdit.WndProc(var Mes: TMessage);
var S: String; N: Integer;
begin
if Mes.Msg = WM_PASTE      then PostMessage(Handle, EM_AFTERPASTE, 0, 0);
if Mes.Msg = EM_AFTERPASTE then begin
 S:=Text;
 for N:= Length(S) downto 1  do if not (S[N] in ['0'..'9']) then Delete(S, N, 1);
 if Length(S)>MAX_LENGTH then SetLength(S, MAX_LENGTH);
 Text:=S;
end else inherited;
end;

end.

---

MaxX   (2009-01-27 15:44:00) [2]

> Вставлять можно.... но только числа)


Кокраз это мне и нужно=)

---

clickmaker   (2009-01-27 15:43:00) [3]

> Вставлять можно.... но только числа

вот и я о том же

---

{RASkov}   (2009-01-27 15:15:00) [4]

> [9] clickmaker ©   (27.01.09 15:12)
> а какой в этом смысл?

Нормальный :) Например в калькуляторе виндовом такая реализация есть)
Т.е. не совсем такая, но похожая.... Вставлять можно.... но только числа)

---

clickmaker   (2009-01-27 15:12:00) [5]

> запретить ввод символов, но при этом разрешить выполнять
> Copy/Paste

а какой в этом смысл?

---

{RASkov}   (2009-01-27 15:06:00) [6]

Кстати если разрешишь данные сочетания, например так:
if not (Key in ['0'..'9', CHR(24), CHR(22), #8]) then Key:=#0;
То тогда нафик вся затея с контролем ввода цифр рушится из-за того, что вставить можно все что угодно....
Впрочем у тебя сейчас так и есть :) См [5] про мышку, да и Shift+Ins тоже уже все портит...)

---

Palladin   (2009-01-27 15:05:00) [7]

ой... прошу прощенья... считается оказывается.. это Del не считается...

---

Palladin   (2009-01-27 15:04:00) [8]

> {RASkov} ©   (27.01.09 14:55) [3]

а ЗаднийПробел клавишей не считается и КлавишеДавилкой не ловится )

---

Anatoly Podgoretsky   (2009-01-27 15:01:00) [9]

> MaxX  (27.01.2009 14:53:02)  [2]

Копируй мышкой или разрешай комбинации.

---

{RASkov}   (2009-01-27 14:55:00) [10]

> if not (Key in ['0','1','2','3','4','5','6','7','8','9'])
> then

:)
Тоже самое:
if not (Key in ['0'..'9'{, #8}]) then :)
Только нужно еще и бэкспэйс разрешить.... как-то с ним комфортнее) может и еще чего, например DecimalSeparator....

Ctrl+Ins и Shift+Ins работают :) Остальное тыж сам запретил)

---

Palladin   (2009-01-27 14:55:00) [11]

Не он, а ты. Соответственно неблокировать их - тоже в твоей власти.

---

MaxX   (2009-01-27 14:53:00) [12]

> Копирование и вставка из буффера никоим образом события
> KeyPress не касается.


Он блокирует комбинации, Ctrl+X, Ctrl+V

---

Palladin   (2009-01-27 14:46:00) [13]

Копирование и вставка из буффера никоим образом события KeyPress не касается.

---

Наверх