procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift =[ssCtrl]) and (Key=65) then
Memo1.SelectAll
end;
转载于:https://my.oschina.net/u/2343604/blog/2990504
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift =[ssCtrl]) and (Key=65) then
Memo1.SelectAll
end;
转载于:https://my.oschina.net/u/2343604/blog/2990504