Tasen sperren mit key /Wie gebe ich entf/del frei?

[Quailin]

Da ich das selbe Problem habe wie Hallo_Thomas,
poste ich meine Lösung anbei wie ich Ganzzahlen inkl. Backspace taste freigeschaltet habe:

Delphi-Quellcode:

procedure TFrame_Tarifdaten.E_PraemienZahlDauerKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
    if Key = #8 then Key := #8 else //#8 ist der ASCII Wert für VK_BACK
    if not (Key in ['0'..'9'])  then Key := #0;
end;

[Nikolas]

das geht auch schöner:

Delphi-Quellcode:

//allgemeine Sperrung von allen Zeichen ausser
  //backspace, {(-) , (,)} und Zahlen
  if not (key in[#8,{#44,#45,}#48..#57]) then key:=#0;