in textbox nur zahlen, enter, esc und tab zulassen

[Taladan]

Wie kann ich das handeln, das ich in einer Textbox nur Enter, Esc (mit zurücksetzen des Textes) und Tab (ebenfalls mit zurücksetzen des Textes) zulassen kann. Wichtig ist mir, das bei der Taste enter noch eine weitere Procedure ausgeführt wird.

[faux]

HallO!

Ich hab heute gerade so eine Ähnliche Frage gestellt und mit wurde eine sher gute Lösung angeboten:
Reguläre Ausdrücke.

Grüße
Faux

[lucius]

Hi Taladan,

Delphi-Quellcode:

procedure THaupt.Edit1Change(Sender: TObject);
var
  Key:Char;
  i:integer;
  s:string;
begin
// allow only numbers and backspace//
  s := '';
  for i:=1 to Length( TEdit(Sender).Text ) do
  begin
    Key := TEdit(Sender).Text[i];
    if not( Key in ['0'..'9', #8] ) then
      Key := #0
      else
      s := s + Key;
  end;
  TEdit(Sender).Text := s;
end;

MFG Lucius.

[Taladan]

@Lucius. Danke. Dies ist jedoch ein Code der in .Net unbrauchbaur ist. Aus win32 kenne ich ihn schon.

@faux. Was sind reguläre Ausdrücke?

[Pseudemys Nelsoni]

TRegExp

[Elvis]

Zitat von Pseudemys Nelsoni:

TRegExp

Irgendwie sind die Leute, die Plattform/Sprachangabe oben nicht gewohnt.
Alleine das T in TRegExp sollte klarmachen, dass es native Delphi und nicht .Net ist.
In .Net bekommst du im namespace System.Text.RegularExpressions alles was das Herz begehrt.

[Taladan]

habs lösen können

Delphi-Quellcode:

procedure TNavigation.TextBox1_KeyPress(sender: System.Object; e: System.Windows.Forms.KeyPressEventArgs);
begin
  if not( e.KeyChar in ['0'..'9']) then begin
    if e.KeyChar = #13 then begin
//       mach was
    end;
    e.Handled := true;
  end;
end;

[faux]

Zitat von Taladan:

habs lösen können

OK, mit Listen geht's auch.
Ich hatte das Problem in C#, deswegen Reguläre Ausdrücke. Aber in Delphi.NET geht's mit SET's natürlich auch.
Falls du trotzdem interesse hast, dein Wissen um Reguläre Ausdrücke zu erweitern:

Code:

if (! (new Regex('[0-9\n]', RegexOptions.IgnoreCase).IsMatch(e.KeyChar))