NumbersOnly bei TDateTimePicker

[philipp.hofmann]

und es einfach in KeyDown abfangen?

Delphi-Quellcode:

procedure TicTrainerF.cbLegRatioKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  if (pos(keyChar,'0123456789')<=0) then
  begin
    keyChar:=#0;
    exit;
  end;
end;