功能说明:取得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;