unigui中unidbedit只能输入数字

最新推荐文章于 2023-12-09 09:07:03 发布

winfredzhang

最新推荐文章于 2023-12-09 09:07:03 发布

阅读量721

点赞数

分类专栏： delphi rio unigui 文章标签：数字 keydown unidbedit

本文链接：https://blog.csdn.net/winniezhang/article/details/105925828

版权

delphi rio 同时被 2 个专栏收录

89 篇文章

订阅专栏

unigui

60 篇文章

订阅专栏

> ClientEvents > ExtEvents > OnKeydown

     var ok =
        event.keyCode == 8 || //backspace
        event.keyCode == 9 || //tab
        event.keyCode == 13 || //enter  
        event.keyCode >= 35 && event.keyCode <= 37 || //end, home, left arrow 
        event.keyCode == 39 || //right arrow, downd arrow, insert, delete
        event.keyCode == 45 || //insert
        event.keyCode == 46 || //delete
        event.keyCode >= 96 && event.keyCode <= 105 || // 0-9 on keypad
        event.keyCode >= 48 && event.keyCode <= 57; // 0-9


    if (!ok) {
        e.preventDefault();
    }