在Delphi7.0编程中，在Edit中输入数据后，怎样实现按回车键触发？
2个回答
展开全部
先设置：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;
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;
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
