bestimmte Tasten Sperren.

[DevilsCamp]

Zitat von Peeters:

Beispiel mit KeyPress:

Delphi-Quellcode:

procedure TFormHaupt.EditVKKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #8, #13]) then Key := #0;
end;

mit
Key in ['0'..'9', #8, #13] prüfst du, ob die gedrückte Taste eine der Ziffern, Backspace (#8) oder Return (#13) ist.

durch
if not (Key in ['0'..'9', #8, #13]) then Key := #0; setzt du dann Key bei druch einer anderen Taste auf #0, das ist der Wert, der dem TEdit (z.B.) sagt, dass nicht auf den Tastendruck reagiert werden soll.

Die Zeile
if Key = #13 then Key := #0; kannst du stehen lassen, wenn die Return-Taste nicht auch nicht gedrückt werden darf (ansonsten löschen oder auskommentieren).

Auf Backspace sollte in jedem Fall geprüft werden, da man sonst Falsch-Eingaben nur korrigieren kann, wenn man alles markiert und überschreibt