引言: 在BCB5之下TDBDateTimePicker元件如何顯示24小時制? 目前會顯示出上午及下午 因為5沒有像6以上的版本有Format屬性可以設定 謝謝

// Unit1.h
//---------------------------------------------------------------------------    #ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include 
#include 
#include 
#include <Forms.hpp>
#include 
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:        // IDE-managed Components
  TDateTimePicker *DateTimePicker1;
  void __fastcall FormShow(TObject *Sender);
private:        // User declarations
public:                // User declarations
  __fastcall TForm1(TComponent* Owner);      void __fastcall HandleNotify(TMessage &Message);
  BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_NOTIFY, TMessage, HandleNotify)
  END_MESSAGE_MAP(TControl)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
// Unit1.cpp
//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
void __fastcall TForm1::HandleNotify(TMessage &Message)
{
  AnsiString szDateFormat = "HH:mm:ss";
  if (Message.Msg == WM_NOTIFY)
  {
    if ( ((NMHDR*)Message.LParam)->code == DTN_DATETIMECHANGE )
    {
      SendMessage(DateTimePicker1->Handle, DTM_SETFORMAT, 0, LPARAM(szDateFormat.c_str()));
    }
  }
}    void __fastcall TForm1::FormShow(TObject *Sender)
{
  AnsiString szDateFormat = "HH:mm:ss";
  DateTimePicker1->DateTime = Now();
  SendMessage(DateTimePicker1->Handle, DTM_SETFORMAT, 0, LPARAM(szDateFormat.c_str()));
}
//---------------------------------------------------------------------------