DateTimePicker com atualização automática

O componente TDateTimePicker, quando é inserido em um formulário e não recebe nenhuma inplementação ou código adicional, marca sempre a data em que o formulário foi criado. Nesse artigo vou mostrar como fazer para colocar a data atual no componente TDateTimePicker, toda vez que o formulário em que ele se encontra for acionado.

Inicie um novo aplicativo e insira os seguintes componentes:

2 DateTimePicker

No evento OnShow do formulário, insira o código abaixo:

var
dia,mes,ano: string;
data: Tdatetime;
begin
dia:= formatdatetime(´dd´,date);
mes:= formatdatetime(´mm´,date);
ano:= formatdatetime(´yyyy´,date);
data:= strtodate(dia+´/´+mes+´/´+ano);
datetimepicker2.Date:= data;
end;

Entendendo o Código

formatedatetime(´dd´,date) >> função que formata as partes da data (dia, mês, ano)

strtodate(dia+´/´+mês+´/´+ano) >> função que remonta a data

datetimepicker2.Date:= data >> envia para o componente DateTimePicker2 a data atual para que ele seja atualizado

É isso. Grande abraço!