Einzelnen Beitrag anzeigen

mirko2000

Registriert seit: 9. Nov 2003
69 Beiträge
 
#1

In Edit-Feld nur Zahleneingaben zulassen?

  Alt 23. Jul 2004, 13:17
Ich hab schon mal etwas in google gesucht und auch was gefunden, man kann aber immer noch Sonderzeichen eingeben (Großschreibtaste drücken und die oberen Zahlentasten drücken -> !"§$%&/()=?). Wie kann ich überprüfen, ob die Shifttaste gedrückt wurde?

Delphi-Quellcode:
procedure TForm1.txtSpieltagKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Mgs: TMsg;

  procedure EatKey;
  { Clear Keyboardbuffer / Tastaturbuffer leeren }
  begin
    PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
  end;
begin
  if not (Char(Key) in [#8, #13, #46, #48..#57,#96..#105]) then EatKey;
end;
  Mit Zitat antworten Zitat