Я чего то не пойму, ему же нужен ввод положительных чисел, а не их запрет ( обращение к White Horse ).
Можно написать такой способ :
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #32 then "Выйти";// Если нажат пробел то exit
case key of
'0'..'9':
Begin
IF POS(DecimalSeparator, Edit.Text) <> 0 THEN Key:=Chr(0);
end;
#8:; // разрещён backspase
// #97..#122:; // разрешён ввод английских букв
else Key:=Chr(0); // или Form.Close;
end;
end;
|