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

Как проверить ввод символа в TEdit?   Найти похожие ветки 

← →
tytus   (2004-12-06 11:11) [0]

Добрый день мастера. Нужно проверить, чтобы символы были в диапазоне "A".."Z" , а остальные чтобы и не выводились в TEdit.

---

← →
fynjy1984 ©   (2004-12-06 11:16) [1]

procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not((key>"А")and(key<"Z")) then
   key:=#0;
end;

---

← →
DiamondShark ©   (2004-12-06 11:18) [2]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ["A".."Z", #8]) then Key := #0;
end;

---

← →
tytus   (2004-12-06 11:23) [3]

>All
...что-то вообще ничего не выводит...

---

← →
TUser ©   (2004-12-06 11:29) [4]

> ...что-то вообще ничего не выводит...

Надо назначить эту процедуру обработчиком собфытия OnKeyPress. А лучше обрабатывать OnChange

---

← →
tytus   (2004-12-06 11:39) [5]

>TUser
...как обрабатывать OnChange  в данном случае???

---

← →
CHES ©   (2004-12-06 11:51) [6]

Пример DiamondShark ©   (06.12.04 11:18) [2] работает.

---

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

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



Память: 0.46 MB
Время: 0.021 c