Edit-felt

Brug en TMaskEdit, som ligger under \"Additional\".

Her kan du i editmask propertien angive hvilket format du vil kunne indtaste I !

I Edit komponentens onkeypress, skrives følgende:

if (Key NOT in [\'0\'..\'9\']) then
key:=#0

Christian

--> picard

Når jeg indsætter din kode på onkeypress får jeg følgende fejl:

[Error] Unit1.pas(141): Missing operator or semicolon

[Error] Unit1.pas(141): Operator not applicable to this operand type

Den sætter markøren ved not så det er nok der er noget galt?

hmmm måske det her vil hjælpe.........

if NOT (key [\'0\'..\'9\']) then
key:=#0

Christian

prøver lige igen.......

if NOT (key in [\'0\'..\'9\']) then
key:=#0

Christian

En lidt mere generel løsning kunne udformes som følger :

procedure ValidateEdit(Sender: TEdit; ValidChars : String =\'0123456789\');
var
  i: integer;
  Buf : string;
begin
  Buf:=\'\';
  for i :=1 to Length(Sender.Text) do
    if Pos(Sender.Text[i], ValidChars) <> 0 then
      Buf:=Buf+Sender.Text[i];

  Sender.Text:=Buf;
  Sender.SelStart:=Length(Sender.Text);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ValidateEdit(Sender as TEdit);
end;


Jens B

Lav et nyt komponent og override CreateParams

TMyEdit = class(TEdit)
public
  procedure CreateParams(var Params: TCreateParams); override;
end;

procedure TMyEdit.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or ES_NUMBER;
end;

Guessw...

Du mangler såmænd bare \";\" i eksemplet.

IF NOT (key in [\'0\'..\'9\']) THEN
key:=#0; <-- Det sidste der.

Sig lige til hvis det ikke var den eneste fejl