delphi在memo按键实现全选

本文整理自网络，侵删。

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

相关阅读 >>

Delphi根据输入日期按年月周日输出日期段

Delphi 判断一个颜色是否是亮色

Delphi内嵌汇编语言basm精要

Delphi 进程之间传递cmd参数

Delphi 获取网卡信息

Delphi dbnavigator1 模拟点击

Delphi 读取文本文件的最后一行

Delphi android 程序名称在哪里设置？

dephi获取系统常量

Delphi 支持通配符删除文件

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

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