"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;