procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=13 then ShowMessage('不好意思,我按错回车键!'); end;
onkeydown事件中 key = #13
需要设置Edit属性,WantReturn为True,之后才能收到13消息。
Delphi(Pascal) code procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=13 then ShowMessage('不好意思,我按错回车键!'); end; 哈哈。。按错了。
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
ShowMessage('不好意思,我按错回车键!');
end;
key = #13
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
ShowMessage('不好意思,我按错回车键!');
end;
哈哈。。按错了。