data automatica no delphi com mysql

Delphi

23/10/2014

ola amigos

tenho uma duvida, estou gerando um programinha simples de emissão de ordem de serviços
e no campo "data de entrada", eu digito a data manualmente, eis minha duvida:

queria que no campo data da entrega fosse preenchido automaticamente assim que eu desse um enter tem como:

assim:

data entrada = 14/02/2014, dae dou um "enter" ou um "tab" E O CAMPO DATA ENTREGA SEJA PREENCHIDO AUTOMATICAMENTE E AVANSE 3 DIAS PRA FRENTE

ASSIM: 14/02/2014 ENTER 17/02/2014 ALGUEM ME AJUDA?
Naldo/danillo

Naldo/danillo

Curtidas 0

Melhor post

Wanderson Cortes

Wanderson Cortes

24/10/2014

Pode colocar no evento OnExit do Campo data entrada.

edtDataEntrega.Date := edtDataEntrada.Date + 3;
GOSTEI 1

Mais Respostas

Raylan Zibel

Raylan Zibel

23/10/2014

edtDataEntrega.Text := DateToStr(StrToDate(edtDataEntrada.Text) + 3);
GOSTEI 1
Marcelo Carvalho

Marcelo Carvalho

23/10/2014

Você pode criar um evento on exit no componente que edita a DataDeEntrega com o código a seguir:

procedure TForm1.EDtEntregaExit(Sender: TObject);
begin
  if EDtEntrega.Text='' then Begin
    EDtEntrega.Text:=Datetostr(strtodate(EDtEntrada.Text)+3);
  End;
end;
GOSTEI 1
Naldo/danillo

Naldo/danillo

23/10/2014

muito obrigado pessoal valeu mesmo
GOSTEI 0
POSTAR