如何让editbox只接受Pascal中的字母表

Question

procedure Tform1.edtFnameKeyPress(Sender: TObject; var Key: char);
begin
if not(Key IN ['0'..'9', #8, #9, #13, #27, #127]) then
   begin



   end
else showmessage('Must contain alphabets only')
end; 

我尝试过使用edittextbox的按键程序，但它没有用。

Answer 1

除了试图告诉Pascal什么不接受外，你应该告诉它只接受什么。如果不符合您的条件，您也应该Key := #0取消输入。

if not (Key in ['A'..'Z', 'a'..'z']) then
begin

  Key := #0;   //Cancel the input
  ShowMessage('Must contain alphabets only');

end;