Edit genaue eingabe von Zahlen

[BAMatze]

Zitat von user0815:

In das OnKeyPress Event:

Delphi-Quellcode:

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

OnExit

Delphi-Quellcode:

procedure TFormMain.Edit1Exit(Sender: TObject);
begin
  if Length(Edit1.Text) <> 6 then
  begin
    Edit1.SetFocus;
    Application.MessageBox(PAnsiChar('6 Zahlen'), 'Fehler', MB_OK + MB_ICONINFORMATION);
  end;
end;

Hier sollte aber das Problem auftreten, dass die Entfern-Taste und auch BackSpace nicht mehr funktionieren. Also müsstest das alles nachprogrammieren oder duschaffst dir, wie ich gesagt hatte alles in eine neue von TEdit abgeleitete Komponente. =komponentenentwicklung]Hier ein sehr gutes Tutorial, wie man neue Komponenten erstellt. Hoffe das hilft dir.

MfG
BAMatze