bestlong 怕失憶筆記

當健忘由隨機逐漸趨向常態時,作筆記是非常必要的

Entries Tagged ‘TDateTimePicker’

讓 TDateTimePicker 不因按到上下鍵而改變日期

避免因使用者操作上的不小心去改動到日期
有時需要做一些管控
因為當游標焦點在 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;

Leave a Comment

限制 TDateTimePicker 不可小於某日期

寫程式常常碰到要處理日期區間的狀況
一般都會使用兩個 TDateTimePicker 元件做開始日期與結束日期的輸入
不過沒有做額外處理的話可能使用者會輸入成結束日期小於開始日期的不合理狀況
可以利用 TDateTimePicker.MinDate 屬性來解決

1
2
3
4
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
    DateTimePicker2.MinDate := DateTimePicker1.Date;
end;

這樣當 DateTimePicker1 有改變時會自動影響 DateTimePicker2 的日期
也間接限制了 DateTimePicker2 可以設定的最小日期

Leave a Comment

  • 工商服務

    廣告讀取中...
  • 近期迴響

  • 標籤

  • 彙整