Ir al FINAL de un TEdit después de inyectar un carácter.

[TiammatMX]

Buen día/tarde/noche, jóvenes Delphineros.

Tengo un TwwDbGrid (no es muy relevante, excepto por sus eventos) en el cual tengo para su evento OnKeyDown algo así:

Código Delphi [-]
procedure TfrmRubrosSIS.grdServiciosKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if IsCharAlphaNumeric(Chr(Key)) then
   begin
      with edtSearch do
      begin
         Visible := True;
         Text := Chr(Key);
         SetFocus;
      end;
   end;
end;

en el cual se activa un TEdit que no está visible para recoger los teclazos y efectuar una búsqueda dentro del conjunto de datos que se muestran en la rejilla.

Habiendo invalidado las propiedades AutoSelect y HideSelection del TEdit, me sigue guardando los teclazos, PERO el primer teclazo capturado SIEMPRE me aparece al último y el cursor de inserción al principio, por lo cual si mi teclazo activador es una letra "p", y las siguientes "rimera", el contenido de éste control SIN editarlo queda "rimerap". Desearía saber cómo MANTENER la "p" en primer puesto y mandar el cursor de edición al final para que el texto quede "primera"...

Como siempre, agradeciendo de antemano cualquier ayuda para solucionar ésta cuestión...

[ecfisa]

Hola tiammat.

Código Delphi [-]
  ...
     with edtSearch do
     begin
       Visible  := True;
       Text     := Chr(Key);
       SelStart := Length(Text);
       SetFocus;
     end;
  ...

Saludos

[TiammatMX]

Empezado por ecfisa

...Saludos

¡¡Excelente!! Funcionó a la primera...