TMemo 전체선택(Select All) 단축키 Ctrl+ A 구현

기본적으로 TEdit는 기본적으로 Ctrl+A 단축키로 전체선택도 가능하고 마우스 우클릭을 통해 팝업메뉴를 통한 전체선택도 가능하다.

그러나 TMemo는 기존적으로 마우스우클릭을 통한 팝업메뉴로 전체선택이 가능하다.

다음 코드는 TMemo에 OnKeyPress 이벤트에 Ctrl+A 를 구현한 것이다.

OnKeyDown에 구현하는 것도 있지만  딩 하는 시스템 소리가 나서 다음 코드가 바람직하다.

 

procedure TForm1.mmNoteKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ^A then
  begin
    (Sender as TMemo).SelectAll;
    Key := #0;
  end;
end;