delphi在memo按键实现全选

本文整理自网络，侵删。

 
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Shift =[ssCtrl]) and (Key=65) then
    Memo1.SelectAll
end;
 

相关阅读 >>

Delphi操作excel说明

Delphi 取出鼠百标点击的 stringgrid 中某单度元格的值

Delphi 删除memo某一行

Delphi 类型映射及类型转换

idhttp相关：伪造来源地址、cookie欺骗、通过代理访问

Delphi 带密匙的字符串加密解密函数(支持中文)

Delphi xe5 android 开发实现手机打电话和发短信

Delphi xe中 exit 的新用法

Delphi 2009 新增单元 character isletter、isupper、islower、isdigit、isnumber

Delphi 创建应用程序的快捷方式

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi在memo按键实现全选