как запретить вводить символы в 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;

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

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

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