取得Enter键_OnKeyPress

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




posted @ 2012-05-31 08:25  XE2011  阅读(202)  评论(0)  编辑  收藏  举报