功能说明:取得Enter键 procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin IF key=#13 then showmessage('你按下了Enter键');end;