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 快速读取txt 指定行的数据

Delphi 如何取得系统中的桌面的路径

Delphi memo1自动循环上下滚屏

Delphi 中的split 函数

Delphi百度地图经纬度与地址互转

Delphi xe 播放 gif 动画

Delphi idpop3收邮件

Delphi 极速字符串替换函数

Delphi xe2 - 实现主窗口在任务栏上不显示

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

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