Edit )

[Karl_Karlovi4]

Подскажите пожалуйста, как в поле Edit сделать так чтобы писались только буквы ?

[Alex21]

Обсуждалось кучу раз:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['A'..'Z','a'..'z','А'..'Я','а'..'я']+[#8]then
 else
  Key:=#0;
end;

[Karl_Karlovi4]

Спасибо Большое

[FaTaL]

А лучше так:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'A'..'Z':;
'a'..'z':;
'А'..'Я':;
'а'..'я':;
#8:;
else
begin
Key:=Char(0);
showmessage('***МАТ***, пиши только буквы!');
end;
end;
end;

Предупреждение! Ещё раз - будет штраф! //zetrix

[Квэнди]

Сообщение от FaTaL

А лучше так:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'A'..'Z':;
'a'..'z':;
'А'..'Я':;
'а'..'я':;
#8:;
else
begin
Key:=Char(0);
showmessage('***МАТ***, пиши только буквы!');
end;
end;
end;

Чем лучше ?

[Alex21]

Сообщение от FaTaL

А лучше так:
...
case key of
...

А IF'ом 2 раскладки прогнать не хотите?