Keypress in TUniEdit numeric only

[Herwan Alhadi]

To all members of the forum

 I am trying to use the keypress event to disallow some keys in a TUniEdit

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in[‘0’..’9′,#8]) then
key:=#0;
end;

still not work, how can do it

thaks

[AleksZ]

Hi!

procedure TMainForm.UniEdit2Change(Sender: TObject);

function MyCif(s: string): Boolean;
  begin
    if (s = '0') or (s = '1') or (s = '2') or (s = '3') or (s = '4') or  (s = '5') or (s = '6') or (s = '7') or (s = '8') or (s = '9') then
      Result := True
    else
      Result := False;
  end;

begin

if not MyCif(Copy(UniEdit2.Text, Length(UniEdit2.Text), 1)) then
        UniEdit2.Text := Copy(UniEdit2.Text, 1, Length(UniEdit2.Text) - 1);

end;

[Roberto Nicchi]

On 10/9/2022 at 6:08 PM, Herwan Alhadi said:

To all members of the forum

 I am trying to use the keypress event to disallow some keys in a TUniEdit

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in[‘0’..’9′,#8]) then
key:=#0;
end;

still not work, how can do it

thaks

you could use the inputmask property to limit the valid input characters ...

[albertovesx]

I think that is better to use a client side approach like this

 

[Herwan Alhadi]

Thaks for all.. 😊