Dicas - "Selecionar Tudo" (Crtl+A) no Memo

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja nesta dica, como implementar a funcionalidade de selecionar tudo em um Memo.

"Selecionar Tudo" (Crtl+A) no Memo

 

Esta dica mostra como implementar o código para a combinação de teclas CTRL+A (“Selecionar Tudo”) ao Memo ou DBMemo. Apenas adicione um Memo ao formulário e implemente o evento OnKeyDown do Memo1, da seguinte forma:

 

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState) ;

begin

  if (Key = Ord('A')) and (ssCtrl in Shift) then

  begin

    TMemo(Sender).SelectAll;

    Key := 0;

  end;

end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?