Ajuda com componente TDateEdit (Aba RxControl)

Question

Ola,Meu problema tah no momento em que escolho da data para pesquisa e teclo enter, a data esta se apagando.Alguem pode me ajudar?ObrigadoDeus Aben�oe...

Felipe Passos · Answer

Boa tarde,poste o c�digo do onkeypress deste componente para darmos uma olhada.Abra�os....

Claudia Nogueira · Answer

Isso � bem caracter�stico de campo DB.Ser� que n�o colocou trocado no lugar do TDateEdit o TDBDateEdit?...

Wilton J�nior · Answer

Claudiadnh eu sou bem lesado para fazer isso mas dessa vez coloquei certinho.

procedure TForm1.DateEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((Key = vk_return) or (key = vk_tab)) then
begin
if dateedit1.Text = ' / / ' then
begin
close;
exit;
end;

dateedit2.enabled:=true;
dateedit2.setfocus;
end;

end;

Joel Rodrigues · Answer

No evento onExit desse DateEdit ou no onEnter do DateEdit2 tem algum c�digo?...

Wilton J�nior · Answer

Ae Joel valeu pela dica olha o que o lesado do outro programador fez:

procedure TForm.DateEdit2Exit(Sender: TObject);
begin
if dateedit2.date <= 0 then
begin
dateedit1.clear;
dateedit2.enabled:=false;
dateedit1.setfocus;
exit;
end;

if dateedit2.date < dateedit1.date then
begin
showmessage('Periodo Invalido');
dateedit1.clear;
dateedit2.clear;
dateedit2.enabled:=false;
dateedit1.setfocus;
exit;
end;

speedbutton1.enabled:=true;
maskedit3.enabled:=true;
maskedit3.setfocus;
end;

Claudia Nogueira · Answer

Hehehe n�o � lesado n�o. � que as vezes a gente se confunde na hora de puxar o componente.Veja se tem alguma coisa no onEnter ou no onExit igual o pessoal sugeriu.Nesse seu c�digo tem um Close, n�o que tenha a ver, mas voc� quer realmente fechar a tela quando a data for vazia?Um jeito melhor de verificar se � uma data valida com o TDateEdit �:A� avisa aqui. :)...

Eduardo Mendon�a · Answer

Bom Dia! fique com uma duvida.no meu caso eu tenho nada no OnEnter  e no  onExit e quando escolho a data e aperto enter ele n�o aparece.tem alguma propriedade que tenho que marcar para ele pegar a data com o bot�o Enter ou algum c�digo que tenho que por?estava tentando por  assimprocedure TfrmManutencaoAgenda.dteDataInicialKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin  if (key=VK_RETURN) then    TDateEdit(Sender).Text :=  aqui provavelmente viria o c�digo para pegar a data selecionada que eu desconhe�o ;end;:(...

F�rum Ajuda com componente TDateEdit (Aba RxControl) #428389