Edit Eingabe nur auf Zahlen beschränken, Probleme mit ^

[DeddyH]

Demnächst gibt es ein NumberEdit in der VCL, damit dürften sich diese Probleme erledigt haben.

[Angel4585]

Also man soll nur Zahlen eingeben können?
Ich mach das immer so:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9'])then Key:=#0;
end;

Also in die KeyPress un nich KeyDown

[DeddyH]

Und die Zwischenablage?

[Angel4585]

Delphi-Quellcode:

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
Handled:=true;
end;

Das man au immer erst den Holzhammer rausholen muss

[TonyR]

Die Variante mit dem Showmessage hatte ich im Übrigen auch schon, die is aber doof.

Ich will ja keine nachricht aufploppen lassen.

Da is das mit dem PopupMenü besser finde ich.

[DeddyH]

So, Backspace geht nicht, also müsste #8 mit in die Menge, und über SHIFT-EINFG kann ich immer noch aus der Zwischenablage einfügen.

[ATSV]

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 45 then begin
    ShowMessage('');    // oder sonst irgendwas
  end;
end;

dann geht auch Shift + Einfg nicht mehr wenn du das meinst

[Reinhardtinho]

Jedi installiert?

Wenn ja, dann Komponente TJvValidateEdit nehmen.

Properties setzen:
CheckChars = 0123456789
DisplayFormat = dfInteger
MaxLength (=1) oder MaxValue (=9) einstellen

Fertig!

MFG
Lorenz


Nachtrag:

Funktioniert auch, wenn man über Strg+V oder rechte Maustaste->Einfügen einen Text einfügt, der Zahlen und Buchstaben enthält. Es werden nur die Zahlen eingetragen.

[Glühwürmchen]

Macht richtig Spaß zu lesen, was Euch alles für Tricks einfallen, um die angebotenen Lösungen auszuhebeln.
Bin gespannt, was gegen meine übliche Vorgehensweise spricht....:

Delphi-Quellcode:

procedure TfrmMain.Edit1Exit(Sender: TObject);
begin
  try
    StrToInt(Edit1.Text);
  Except
    Edit1.Text := '0';
    Edit1.SetFocus;
    Edit1.SelectAll;
  end;
end;

Edit: Gerne auch mit StrToFloat...

[TonyR]

Zitat von Glühwürmchen:

...Bin gespannt, was gegen meine übliche Vorgehensweise spricht....: ...

Das finde ich ansich gar nicht so schlecht, aber vllt. sollte man nicht alles auf NULL setzen, sondern nur die ungültigen zeichen per Schleife aus dem Edit entfernen