852
社区成员
- 全部
- API 调用
- 基础类
- 控件与界面
- 数据库相关
- DataWindow
- 项目管理
- Web 应用
- 脚本语言
EditMask获取光标焦点后全选问题
我知道要用SelectText，但是这个函数需要设置其实位置，
可是EditMask中没有值的时候默认显示一个0，这个时候EditMask的长度也为0，
因此也选不中，但是我现在需要选中这个默认的0，因为如果不选择这个默认的0，
光标在这个0前，输入一个数字，如9，立刻EditMask的内容就是90了，而输入之前，
EditMask虽然显示0，但是内容是空的，此时如果你输入0，内容才会是0。
可是EditMask中没有值的时候默认显示一个0，这个时候EditMask的长度也为0，
因此也选不中，但是我现在需要选中这个默认的0，因为如果不选择这个默认的0，
光标在这个0前，输入一个数字，如9，立刻EditMask的内容就是90了，而输入之前，
EditMask虽然显示0，但是内容是空的，此时如果你输入0，内容才会是0。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
chido 2004-06-29
如果是手动输入0,那值就是0,长度就是1了,你的意思是在Select前赋值?
yl_yz 2004-06-29
chido(痴豆吃豆)
mask是####0,在没有值的时候默认显示一个0,但是有这个0的时候EditMask是不认为有的,
这个时候Text内容为空,长度为0,所以是没法用selecttext(1,len(this.text))选中的.
那在EditMask控件的text属性里输入0怎样？
mask是####0,在没有值的时候默认显示一个0,但是有这个0的时候EditMask是不认为有的,
这个时候Text内容为空,长度为0,所以是没法用selecttext(1,len(this.text))选中的.
那在EditMask控件的text属性里输入0怎样？
chido 2004-06-29
试过了,不可以,看清我的文章内容,EditMask虽然显示一个0,但是他自己认为为空,长度为
0,怎么能按照区间进行选择呢?
0,怎么能按照区间进行选择呢?
TGWall 2004-06-29
可以吧
代码写在getfocus事件里
代码写在getfocus事件里
chido 2004-06-29
mask是####0,在没有值的时候默认显示一个0,但是有这个0的时候EditMask是不认为有的,
这个时候Text内容为空,长度为0,所以是没法用selecttext(1,len(this.text))选中的.
这个时候Text内容为空,长度为0,所以是没法用selecttext(1,len(this.text))选中的.
TGWall 2004-06-29
你的EditMask控件Mask页签下的mask和MaskDataType分别是什么?
可以在EditMask控件的getfocus()中写上如下的代码:
this.selecttext(1,len(this.text))
可以在EditMask控件的getfocus()中写上如下的代码:
this.selecttext(1,len(this.text))
entertcl 2004-06-29
用模拟键盘设计可以实现
我用这此代码实现了小键盘控制的功能,你的功能可以通过其它按键来实现,你可以一试
$PBExportHeader$u_sp_keypresser.sru
$PBExportComments$模拟按键
forward
global type u_sp_keypresser from nonvisualobject
end type
end forward
global type u_sp_keypresser from nonvisualobject
end type
global u_sp_keypresser u_sp_keypresser
type prototypes
subroutine keybd_event(uint bVk,uint bScan,long dwFlags,long dwExtraInfo ) library 'user32.dll'
end prototypes
forward prototypes
public function integer key (string as_key)
public function integer press (string as_key)
public function integer release (string as_Key)
public subroutine numkey (keycode key)
end prototypes
public function integer key (string as_key);//
// 功能:模拟按键
//
this.press(as_Key)
this.release(as_Key)
return 1
end function
public function integer press (string as_key);//
// 功能:模拟按下键
//
int li_Ascii
li_Ascii = Asc(as_Key)
keybd_event(li_Ascii, 0, 0, 0)
return 1
end function
public function integer release (string as_Key);//
// 功能:模拟释放键
//
int li_Ascii
li_Ascii = Asc(as_Key)
keybd_event(li_Ascii, 0, 2, 0)
return 1
end function
public subroutine numkey (keycode key);String ls_KeyASC
Choose Case Key
Case key1!,keynumpad1!
ls_KeyASC = "1"
Case key2!,keynumpad2!
ls_KeyASC = "2"
Case key3!,keynumpad3!
ls_KeyASC = "3"
Case key4!,keynumpad4!
ls_KeyASC = "4"
Case key5!,keynumpad5!
ls_KeyASC = "5"
Case key6!,keynumpad6!
ls_KeyASC = "6"
Case key7!,keynumpad7!
ls_KeyASC = "7"
Case key8!,keynumpad8!
ls_KeyASC = "8"
Case key9!,keynumpad9!
ls_KeyASC = "9"
Case key0!,keynumpad0!
ls_KeyASC = "10"
Case keyenter!
ls_KeyASC = "enter"
End Choose
key(ls_KeyASC)
end subroutine
on u_sp_keypresser.create
TriggerEvent( this, "constructor" )
end on
on u_sp_keypresser.destroy
TriggerEvent( this, "destructor" )
end on
我用这此代码实现了小键盘控制的功能,你的功能可以通过其它按键来实现,你可以一试
$PBExportHeader$u_sp_keypresser.sru
$PBExportComments$模拟按键
forward
global type u_sp_keypresser from nonvisualobject
end type
end forward
global type u_sp_keypresser from nonvisualobject
end type
global u_sp_keypresser u_sp_keypresser
type prototypes
subroutine keybd_event(uint bVk,uint bScan,long dwFlags,long dwExtraInfo ) library 'user32.dll'
end prototypes
forward prototypes
public function integer key (string as_key)
public function integer press (string as_key)
public function integer release (string as_Key)
public subroutine numkey (keycode key)
end prototypes
public function integer key (string as_key);//
// 功能:模拟按键
//
this.press(as_Key)
this.release(as_Key)
return 1
end function
public function integer press (string as_key);//
// 功能:模拟按下键
//
int li_Ascii
li_Ascii = Asc(as_Key)
keybd_event(li_Ascii, 0, 0, 0)
return 1
end function
public function integer release (string as_Key);//
// 功能:模拟释放键
//
int li_Ascii
li_Ascii = Asc(as_Key)
keybd_event(li_Ascii, 0, 2, 0)
return 1
end function
public subroutine numkey (keycode key);String ls_KeyASC
Choose Case Key
Case key1!,keynumpad1!
ls_KeyASC = "1"
Case key2!,keynumpad2!
ls_KeyASC = "2"
Case key3!,keynumpad3!
ls_KeyASC = "3"
Case key4!,keynumpad4!
ls_KeyASC = "4"
Case key5!,keynumpad5!
ls_KeyASC = "5"
Case key6!,keynumpad6!
ls_KeyASC = "6"
Case key7!,keynumpad7!
ls_KeyASC = "7"
Case key8!,keynumpad8!
ls_KeyASC = "8"
Case key9!,keynumpad9!
ls_KeyASC = "9"
Case key0!,keynumpad0!
ls_KeyASC = "10"
Case keyenter!
ls_KeyASC = "enter"
End Choose
key(ls_KeyASC)
end subroutine
on u_sp_keypresser.create
TriggerEvent( this, "constructor" )
end on
on u_sp_keypresser.destroy
TriggerEvent( this, "destructor" )
end on
PB关于editmask固定长度后获取光标的问题 em_ticket_no.SelectText(1,len(em_ticket_no.text))em_ticket_no.SetFocus()em_ticket_no.text=
pb数据窗口中Editmask不能自动全选文本（翻译） 但是有一个问题让我觉得失望，就是对于edit mask的列却没有这个属性。 一个解决方法就是，增加一个功能检查数据窗口中的这列是不是edit mask列，如果是的话就对这个文本高亮显示。 下边的这个列子就是在...
如果当DW的EDITMASK中得到焦点后自动全部选择当前字符呢？ 如果当DW的EDITMASK中得到焦点后自动全部选择当前字符呢？ Edit风格的输入有一个AutoSelect，可EditMask中就没有，如果设置一个数字值的EditMask类型时，很麻烦，用户要先将原来所有的数字清空后再输入。
Android控件之DatePicker、TimePicker焦点问题（有些手机不能手动输入） View中添加DatePicker、TimePicker，多次两者间点击编辑和+-，会产生焦点聚焦在某个方框中，导致编辑这个方框无法弹出对话框，如何解决？？？ 评论 (6) • 分享 • 链接 • 2012-09-19 0...
关于PB EditMask控件限制输入范围的问题 如题，PB的EditMask控件有属性min和max,希望能在任何时候限制用户输入的值都在我指定的范围内，不仅在于spin控件起作用，包括键盘直接输入也需要能够限制到，我尝试在pbm_keydown事件里判断然后返回1，好像并不起...
editmask编辑时间问题 有一列datetime类型数据，在数据窗口中用editmask编辑，设置MASK为hh:mm格式,在Spin control选上， 在编辑时，这列的设置为当天的日期，但当我点Spin control上下修改时间时，这列的数据就会变成： 1900－01－01 00...
delphi editmask设置方法 至于掩码的格式子符有许多种，在这里一一例举不太可能，我只能给你几个常用的 # 其所对应的位置只能输入数字或正负号，但不一定要输入 9 其所对应的位置只能输入数字，但不一定要输入 ...
DevExpress 控件 EditMask Numeric数字类型掩码 关于Numeric的EditMask说明： 可以用分号“;”分成两部分，前面是正数，后面是负数。（通过用户输入-来切换） 正数和负数小数点前、后的有效位数一定要相同，否则会报异常，所谓有效就是0、#、%等这样的。（位数不含...
PB9 关于EditMask 粘贴空值时无法响应问题 大家好，本人在写程序时发现这样的一个问题， 环境PB9.02 在一个response窗口中添加了一个EditMask控件em_1， mask为空没有设置， maskdatatype为stringmask!， 运行后在em_1中直接按Ctrl＋C 然后再按Ctrl＋V这样...
关于EditMask的问题 我在TValueListEditor的某一个单元格上需要做输入值的校验，校验... 我尝试用TValueListEditor->ItemProps[i]->EditMask = "lllll;1;"; 但是这样不能限制其他的字母，而且目标单元格会有 "11111;1;" 这样的初值显示。
PB9.0里editmask用程序输入数据问题 如上图 PB9.0的editmask控件，MaskDataType为numericmask!...等按钮往里面输入数字，输入1个3后，光标在3后面，现在我按其他数字按钮时要实现在光标的 位置输入数字，不知怎么实现。 请各位大侠帮帮忙，万分感谢！
delphi 的EditMask使用方法 最近需要一个可控制输入输出格式的编辑框，不过Delphi中却没有满足要求的控件，想自己弄一个吧！...顺便也了解下EditMask具体用法 下面的内容是网上找的 掩码编辑框（MaskEdit）是一种特殊的编辑
EditMask年月问题 EditMask 想格式成"yyyy年mm月" 的形式，但是不知道为什么当在em里输入完年例如2008之后，光标就自动跳到月份的个位上（例如08月的0 后面位置）了，而不是跳到08月 的0的前面
editmask问题 想把DW中的的一列(number类型)的显示改为##,##0.00, 比如4012354667.00会显示为4,01,23,54,667.00。也即是整数最后3位一个,前面每2位一个，请问该如何实现？谢谢
PB控件属性之SingleLineEdit、EditMask、MultiLineEdit、RichTextEdit、StaticText和StaticHyperLink 文本编辑：SingleLineEdit-单行编辑器、EditMask-屏蔽编辑器、MultiLineEdit-多行编辑器、RichTextEdit-富文本编辑器
