带鱼怎么处理视频教程:在Delphi7.0编程中,在Edit中输入数据后,怎样实现按回车键触发?

来源:百度文库 编辑:高校问答 时间:2024/05/05 22:02:07

先设置:Form1.KeyPreview = True
procedure Tform1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
begin
Key := 0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;

监测输入的是不是回车键,如果是则调用处理事件