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

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

← →
b@v ©   (2009-03-17 09:22) [0]

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

---

← →
{RASkov} ©   (2009-03-17 09:24) [1]

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

---

← →
{RASkov} ©   (2009-03-17 09:27) [2]

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

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

---

← →
D@nger   (2009-03-17 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) [4]

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


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

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

---

← →
b@v ©   (2009-03-17 09:31) [5]

> 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;


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

---

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

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



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