2 replies to this topic

[edgar_prospero]

que hayamigos a ver quien puede echarme una mano tengo un tdateedit que al darle el foco esta toda la fecha seleccionada y tengo que irme a la primera posicion manualmente para empezar a escribir si no se borra lo demas mi pregunta es hay alguna forma de cuando se ponga el foco solo sea en la primera posicion de la fecha porque a veces nomas necesito cambiar dia y no mes ni año
el codigo que uso para darle el foco al tdateedit con un enter es el siguiente

delphi

procedure TForm1.inicialKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
  begin
    Key := #0;
    Perform(WM_NEXTDLGCTL, 0, 0);
  end
end;

[TiammatMX]

que hayamigos a ver quien puede echarme una mano tengo un tdateedit que al darle el foco esta toda la fecha seleccionada y tengo que irme a la primera posicion manualmente para empezar a escribir si no se borra lo demas mi pregunta es hay alguna forma de cuando se ponga el foco solo sea en la primera posicion de la fecha porque a veces nomas necesito cambiar dia y no mes ni año
el codigo que uso para darle el foco al tdateedit con un enter es el siguiente

delphi

procedure TForm1.inicialKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
  begin
    Key := #0;
    Perform(WM_NEXTDLGCTL, 0, 0);
  end
end;

No conozco tu control (¿alguna suite de componentes, tal vez?) pero hasta donde me ha tocado ver, todos los componentes de fecha en cuanto reciben el foco, conservan el contenido y se posicionan en la primera parte de los datos, en éste caso, el día (o como tengas definida tu máscara)...

[Sergio]

En lugar de cambiar el key a cero, aprovecha el esfuerzo y convierte la tecla a la de inicio, que justo hace lo que quieres si la pulsases "a mano":

delphi

procedure TForm1.inicialKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
  begin
    Perform(WM_NEXTDLGCTL, 0, 0);
    Key := VK_HOME;
  end
end;

No lo he probado, pero creo que debería funcionarte