delphi在memo按键实现全选

本文整理自网络，侵删。

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

相关阅读 >>

elphi中取出字符串中指定位置的几个字符

Delphi 取时间戳

Delphi 图像二值化

Delphi禁用,启用网卡

Delphi xe7 取得进程占用内存的两个函数

Delphi xe6 读取android设备联系人

Delphi 正则表达式tperlregex 类的属性与方法

Delphi timer定时器 实现定时执行

Delphi 图像翻转

Delphi判断系统是否安装tcp/ip协议

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

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