08-01-2009, 11:42 AM
إليك الكود الصحيح:
كود :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['a'..'z'] then
begin
showmessage('it is a : letter!');
end;
end;
