Si ya tienes un componente que muestra la
fecha o la hora, es bastante probable que derivando del componente y "modificando" el comportamiento puedas conseguir que pinte
fecha y hora, si es lo que necesitas.
Si te fijas en la propiedad Kind que "manda lo que se pinta" en el componente, verás que esta se encuentra directamente en TDateTimePicker.
Si miras el código verás esto:
Código Delphi
[-]
if FKind <> Value then
begin
FKind := Value;
RecreateWnd;
end;
Por lo tanto si vas al código del procedimiento de la clase TDateTimePicker, que se encarga de la creación, verás que ahí está lo necesario para que se "pinte" una cosa u otra.
Código Delphi
[-]
procedure TDateTimePicker.CreateParams(var Params: TCreateParams);
Ese procedimiento tiene un
override, por lo tanto puedes sobreescribirlo en tu componente y decidir qué se debe pintar y en qué formato.