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í:

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.


...
with edtSearch do
begin
Visible := True;
Text := Chr(Key);
SelStart := Length(Text);
SetFocus;
end;
...


Saludos :)

[TiammatMX]

...Saludos :)

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