Editbox funktion gesucht

[Klaus01]

Zitat von mkinzler:

Dann gib mal was anderes wie ne Zahl ein.

Na, vielleicht hat er ja noch dieses in seinem Code:

Delphi-Quellcode:

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

Grüße
Klaus