Как проверить ввод символа в 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 в данном случае???