功能说明:取得Enter键
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
IF key=#13 then showmessage('你按下了Enter键');
end;
功能说明:取得Enter键
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
IF key=#13 then showmessage('你按下了Enter键');
end;
转载于:https://www.cnblogs.com/xe2011/archive/2012/05/31/2527409.html