Hvordan får jeg et edit felt til at kun accepter tal

Hvordan får jeg et edit felt (Tedit) til at kun accepter tal.

Sæt en MaskEdit (fundet under additional) på formen og tryk på editmask i Object Inspectoren.
Så kan du vælge hvor mange tal der skal være plads til og hvilke tal.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Du kan også bruge denne:

procedure TForm1.EPasswordKeyPress(Sender: TObject; var Key: Char);
const
nummer=['1','2','3','4','5','6','7','8','9','0',Chr(VK_BACK)];
begin
if not (key in nummer) then key:=#0;
end;

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Min gør præcis det samme... Bare mindre kode ....

MH.

The-Freak

Livet er for kort til at kede sig.

Hvordan får jeg et edit felt (Tedit) til at kun accepter tal.

I Edit'ens OnKeyPress event indsætter du flg kode:

  if not (Key in ['0'..'9', #8]) then
    Key := #0;

MH.

The-Freak

Livet er for kort til at kede sig.

Du kan også bruge denne:

procedure TForm1.EPasswordKeyPress(Sender: TObject; var Key: Char);
const
nummer=['1','2','3','4','5','6','7','8','9','0',Chr(VK_BACK)];
begin
if not (key in nummer) then key:=#0;
end;

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Du kan også bruge denne:

procedure TForm1.EPasswordKeyPress(Sender: TObject; var Key: Char);
const
nummer=['1','2','3','4','5','6','7','8','9','0',Chr(VK_BACK)];
begin
if not (key in nummer) then key:=#0;
end;

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Min gør præcis det samme... Bare mindre kode ....

MH.

The-Freak

Livet er for kort til at kede sig.

Arh ups.. Havde ikke set din post
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------