09-01-2009, 10:48 AM
moh__ كتب :يعني ماذا يفعلهذا ما فهمته من ما أشار إليه الأخ DeltaAzizهو للأحرف الكبار ؟PHP كود :UpCase(key)
PHP كود :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if UpCase(key) in ['a'..'z','A'..'Z'] then
begin
showmessage(''+UpCase(key));
end;

