Example in C++:

void __fastcall TForm ::Button Click(TObject *Sender) { DateTimePicker ->Perform(DTM_SETFORMAT, NULL, "hh:mm tt"); // will yeild a display without seconds, like this: "8:30 PM" }

Example in Object Pascal:

procedure TForm .Button Click(Sender: TObject); var s: String; begin s := 'hh:mm tt'; DateTimePicker .Perform(DTM_SETFORMAT, DWord(nil) ,DWord(s)); end;

Consult the Windows API documentation here for further information on formatting strings. Note: This technique bypasses the VCL wrapper around the date time picker by sending a message directly to the Windows control. This causes one problem. If you send a message that sets the formatting to show date elements while the Kind property is set to dtkTime (or vice versa), the date elements will display correctly, but the user may not be able to change those elements (or elements will change incorreclty). Therefore, it is suggested that you be sure the elements you display correspond to the control's Kind.