取得系統語系 & 使用者自訂語系

type
  TUserDefaultLang = (langEnglish, langChinese_Simp, langChinese_Trad);

function fn_GetUserDefaultLangID:TUserDefaultLang;
begin
  //取得使用者自訂的系統語系 GetUserDefaultLangID
 //取得系統語系 GetSystemDefaultLangID
  case GetUserDefaultLangID of
    1028: Result := langChinese_Trad;    //1028 繁體中文
    1033: Result := langEnglish;                //1033 英文
    2052: Result := langChinese_Simp;  //2052 簡體中文
  end;
end;

QuickReport 得知Prepare 或 Print狀態

//Preview

QuickRep1.QRPrinter.ShowingPreview

//Printing
QuickRep1.QRPrinter.aPrinterSettings.Printer.Printing

清空 TDateTimePicker 日期值的處理方式

procedure TForm1.DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_DELETE then
    DateTimePicker1.Format:=' ';
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  DateTimePicker1.Format:=ShortDateFormat;
end;


在取用TDateTimePicker時，需檢查Format決定是空值還是日期值