Delphi. В поле Edit обработчик события KeyPress

[Manya89]

делаю замену NumbersOnly вручную:
procedure TForm1.KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ['0'..'9', #8]) then Key:=#0;
end;
а хотела:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ['0'..'9', #8]) then Key:=#0;
end;

Делала обработчик событий в Edit. А почему вышло без Edit1? просто в Form1???

[GetMax]

А почему вышло без Edit1? просто в Form1???

Куда что вышло? Объясните подробнее. Код полностью рабочий для TEdit

[Manya89]

вот код который получился:
procedure TForm1.KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ['0'..'9', #8]) then Key:=#0;
end;

вот код который должен быть:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ['0'..'9', #8]) then Key:=#0;
end;

разница только в названиях процедур, и я не могла понять почему это разница вообще есть.

Вот моя ошибка:
в обработчике событий в строке OnKeyPress я написала KeyPress, а надо было Edit1KeyPress!!! Во тупая)))) Пошла ума набираться)))

[AET]

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in['a'..'я','А'..'Я']) then key:=#0;
end;

подскажите почему после даного кода у меня не работает клавиша bakspeis на данной программе

[Stilet]

Потому что key:=#0; означает отмену нажатия клавиш.
Добавь ее код в условие.

[AET]

if not (Key in['a'..'я','А'..'Я']) and (Key<>#8) then key:=#0;

if not (Key in['a'..'я','А'..'Я', #8]) then key:=#0

а как цифры добавить

if not (Key in['a'..'я','А'..'Я','0'..'9',#8]) then Key:=#0;

все готово