Quick Tips: Implementando atalho CTRL+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
 (0)  (0)

Nesta quick tip veremos implementar o atalho CTRL + A para selecionar todo o texto do Memo.

Insira um memo no formulário e insira o seguinte código no evento KeyPress do Memo:

 

  //verifica se tecla A foi apertada e se o ctrl está pressionado

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

  begin

    //Seleciona todos os caracteres do Memo

    TMemo(Sender).SelectAll;

    Key := 0;

  end;


 

É isso aí pessoal, vou ficando por aqui.

Fiquem a vontade para criticar, tirar dúvidas e sugerir novos temas.
Abraço.

Ricardo Coelho

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