Entering letters after numbers is accepted for a TEdit object InputType := tiNumber

Example, the following are accepted:
25ddd
23.33dddd
25`dddddd

How to get to correctly accept numbers and decimal point only?

Code your own KeyPress to accept only the characters you want.

This was from a grid...

function TfrmTime.grdDetKeyPress(Sender: TObject; Key: Char; ShiftKey, CtrlKey, AltKey: Boolean): Boolean;
begin
 if grdBD.ColumnIndex = 1 then
 begin
   if (ShiftKey) or (CTRLKey) or (ALTKey) then
   begin
     result := false;
   end
   else
   begin
   if IsDigit(Key) or (Key = '.') then
     result := true
   else
     result := false;
   end;
 end
 else
 begin
   result := true;
 end;
end;


Walter

Walter:

<< Code your own KeyPress to accept only the characters you want. >>

Thank you. It works.

Trinione wrote:

>  InputType := tiNumber

The key here is that it tells the browser information, not anything
else. So on an iPhone, it will show the numeric keyboard which speeds
input of such numbers. The validation is down to you though.

--

Matthew Jones