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