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

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

как запретить вводить символы в TEdit

b@v ©   (2009-03-17 09:22:00) 

как запретить вводить символы в TEdit , конкретно мне не нужно вводить кавычки (")

---

b@v   (2009-03-17 09:31:00) [1]

> D@nger   (17.03.09 09:28) [3]
>
> обрабатывй событие OnKeyPress
>
> procedure TFmodul.srok_edtKeyPress(Sender: TObject; var
> Key: Char);
> begin
>   if key=#34 then key:=#0;
> end;


Вот так классно работает, спасибо !!!

---

b@v   (2009-03-17 09:30:00) [2]

> if Key='"' then Key:=#0;
> на обработчик нажатия клавиш....
>


Несовпадение типов. Делаю вот так, но он все равно позволяет ввводить данный символ :-(

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if(Key = Ord('"')) then
       Key = 0;
end;

---

D@nger   (2009-03-17 09:28:00) [3]

обрабатывй событие OnKeyPress

procedure TFmodul.srok_edtKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#34 then key:=#0;
end;


---

{RASkov}   (2009-03-17 09:27:00) [4]

а лучше так:
if Key in InvalidChars then Key:=#0;

InvalidChars: set of Char;, например InvalidChars:=['"'];
...гибче

---

{RASkov}   (2009-03-17 09:24:00) [5]

if Key='"' then Key:=#0;
на обработчик нажатия клавиш....

---

Наверх