请教memo里的回车判断？？

Question

在memo里怎么判断在里面按了回车或是ctrl+回车啊？还有怎么读取memo里的回车？？以下程序不行
procedure TForm1.memSendKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=13 then
   btnSendClick(self);
end;

Answer 1

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
    if key=#13 then showmessage('ff')
end;

Answer 2

不好意思，应该是：
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then showmessage('ff')
    
end;另外，试试：
procedure TForm1.memSendKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=#13 then
   btnSendClick(self);
end;

Answer 3

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then showmessage('OK')
end;

Answer 4

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = VK_Return then showmessage('OK')
end;

Answer 5

不要用keypress过程因为那样没法判断ctrl键