In einem Edit nur Zahlen erlauben!

[fkerber]

Hi!

Ich würde es so lösen:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [#8,#46,#48..#57]) then key:=#0;
end;


procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if shift=[ssctrl] then begin
  if (key=Ord('V')) or (key=Ord('v')) then
    edit1.PasteFromClipboard;
  end;
end;

Ist glaube ich besser.
Die Frage ist nur, ob das Ausschließen von Buchstaben etwas bringt, wenn man sie durch Einfügen doch hinein bekommt.

Ciao fkerber