避免因使用者操作上的不小心去改動到日期
有時需要做一些管控
因為當游標焦點在 DateTimePicker 時，按到上下鍵時會增加或減少數字
想要讓這樣的操作失去作用可以使用下列程式

1
2
3
4
procedure TForm1.DateTimePicker1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if ((key=38) or (key=40)) then key:=0;
end;