F�rum data automatica no delphi com mysql #498963

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

Curtir t�pico

+ 0

Responder

Post mais votado

24/10/2014

Pode colocar no evento OnExit do Campo data entrada.

edtDataEntrega.Date := edtDataEntrada.Date + 3;

Wanderson Cortes

Responder

Gostei + 1

Mais Posts

24/10/2014

Raylan Zibel

edtDataEntrega.Text := DateToStr(StrToDate(edtDataEntrada.Text) + 3);

Responder

Gostei + 1

24/10/2014

Marcelo Carvalho

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;

Responder

Gostei + 1

24/10/2014

Naldo/danillo

muito obrigado pessoal valeu mesmo

Responder

Gostei + 0