说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用Enter键代替Tab键-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
用Enter键代替Tab键-Delphi资料

在实际的程序开发中我们经常有这样的要求,用户不喜欢用Tab键,他希望用Enter键来代替。我们应该什么做呢?

首先:设定Form的KeyPreview属性为True。

其次:把Form上的所有Button的Default属性设为False。

最后:在Form的OnKeyPress事件中添加如下代码:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin

if Key = #13 then

begin

Key := #0;

Perform(Wm_NextDlgCtl

0

0);

end;

end;

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘