delphi在memo按键实现全选

本文整理自网络，侵删。

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

相关阅读 >>

Delphi 用image 画图

Delphi shgetfileinfo函数

Delphi api读写ini文件

Delphi 调用ie隐藏的命令

Delphi实现解析百度搜索结果link？url=

Delphi tms web core twebsocketclient

Delphi 映像劫持编辑器

Delphi winapi: getmodulehandle - 获取一个模块(exe 或 dll)的句柄

Delphi 指针入门知识

Delphi ioutils tdirectory获取一个目录下所有文件名，包括子目录

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

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