发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: [CB3]解决TDateTimePicker的Date的Exception (转载) 
发信站: 哈工大紫丁香 (Sun Sep  3 07:55:57 2000), 转信

【 原文由 Zeemon 所发表 】
用TDateTimePicker编辑日期时,第一次点开,如果再点到控件外面,程序会报一个
Exception。程序的执行并不受影响。以后也不会再出现这种情况。
解决办法如下：

'dtp' is your TDateTimePicker.

//------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  NMDATETIMECHANGE dtc;
  SYSTEMTIME now;
  GetSystemTime(&now);
  dtc.nmhdr.hwndFrom = dtp->Handle;
  dtc.nmhdr.idFrom = NULL;
  dtc.nmhdr.code = DTN_DATETIMECHANGE;
  dtc.dwFlags = GDT_VALID;
  dtc.st = now;
  dtp->Perform(WM_NOTIFY, NULL, (int)&dtc);
}
//------------------------------------------------------------------
  

--
※ 修改:．haojs 于 Sep  3 07:53:34 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: bbs.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: haojs.bbs@bbs.whnet.]