1

Estou com um problema bem básico e não descubro a causa... Preciso que o texto de dentro de um TEdit fique inteiro selecionado quando o campo receber foco. Nos tempos de Delphi 7 com VCL eu fazia apenas TEdit(Sender).SelLength := Length(TEdit(Sender).Text) no evento OnEnter. Agora com Delphi 10.2 e FireMonkey já tentei de várias maneiras diferentes, mas não funciona.

Exemplo:

procedure TfPrincipal.Edit1Enter(Sender: TObject);
begin
   TEdit(Sender).SetFocus;
   TEdit(Sender).SelStart  := 0; // Ja tentei mudar este valor
   TEdit(Sender).SelLength := Length(TEdit(Sender).Text); // Ja tentei mudar este valor também
end;

No Firemonkey funciona diferente?

1
  • 1
    Fiz o teste e realmente não funciona. veja a resposta.
    – user82731
    21/12/2017 às 13:03

1 Resposta 1

0

Outra coisa definir para SelLength um valor maior do que o número de caracteres de SelStart para resulta na seleção de todos os caracteres de SelStart até o final do texto.

TEdit(Sender).SetFocus ; 
TEdit(Sender).SelStart  : = 0; 
TEdit(Sender).SelLength := Length(TEdit(Sender).Text)+1;
12
  • 1
    Fiz os testes no Delphi 10.1 Berlin e funcionou perfeito. Adicione um +1 no tamanho da Length.
    – user82731
    21/12/2017 às 13:06
  • 1
    outra coisa você pode retirar o TEdit(Sender).SetFocus; já que na entrada do controle o mesmo já está com o foco.
    – user82731
    21/12/2017 às 13:12
  • 1
    Eduardo, você fez seus testes usando o evento OnClick ou OnEnter do TEdit? Pois no evento OnEnter, que é o evento que eu estou usando, não funciona. Então estou adaptando um pouquinho a mais de código e usando o OnClick. Já a propriedade HideSelection eu não encontrei no Delphi 10.2 Tokyo.
    – wBB
    21/12/2017 às 13:12
  • 1
    os dois com o OnClick eu coloquei o SetFocus e no OnEnter sem o SetFocus.
    – user82731
    21/12/2017 às 13:14
  • 1
    Sei lá... muito estranho o que está ocorrendo aqui. Não funciona nem no Windows nem no Android com evento OnEnter (e não existe a propriedade HideSelection). Mas obrigado pela atenção
    – wBB
    21/12/2017 às 13:17

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .