如何实再Ctrl+A功能

我想实现全选功能，不知道如何实现请给出代码。在线等谢谢

解决方案 »

  1.   


    procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      if (shift=[ssctrl]) and (uppercase(chr(key))='A') then
      begin
       memo1.SelectAll;
      endend;
      

  2.   

    jinjazz(人雅的标记--落寞刺客) ：强！你怎么知道他要的是memo ？ 不是dbgrid？！哈哈哈
      

  3.   

    如果是一般的怎么弄？？要是实现 ctrl+A选中当前选中的程序时怎么做？？
      

  4.   

    截获消息
    先是ctrl按下，然后A按下，接着A抬起，最后ctrl抬起。
    先判断要是这样一个消息，就SelectAll
      

  5.   

    可以用模拟键盘事件写
    好象是 SETKEYBORDEVENT函数周一给你代码