自己写的 限制文本框TEdit中只能输入数字，新版已经增加了NumbersOnly属性
摘要：我自己写的： procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0' .. '9', '.', '-', #8, #10, #13]) then begin Key := #0
阅读全文
posted @
2016-10-31 18:10
del88
阅读(226)
推荐(0) 编辑
edit 自动在中间插入代码且光标锁定在插入后的位置
摘要：edit控件，怎样分别获取光标所在位置前面、后面的字符串 showmessage( '光标前："' +copy(edit1.Text,1,edit1.SelStart) +'" 光标后："' +copy(edit1.Text,edit1.SelStart+1,length(edit1.Text))
阅读全文
posted @
2012-07-02 21:33
del88
阅读(5)
推荐(0) 编辑
Edit 文本的选择与光标位置
摘要：//Edit 文本的选择与光标位置 procedure TForm1.Button1Click(Sender: TObject); begin Edit1.SetFocus; //给于焦点 SendMessage(Edit1.Handle,EM_SETSEL,0,1); //选择第一个字符 Send
阅读全文
posted @
2012-07-02 17:59
del88
阅读(9)
推荐(0) 编辑
TEdit设置焦点和判断当前是否是焦点
摘要：{锁定扫描快递单号输入框} InputScanFahuoOutSid_edt.SetFocus; if InputScanFahuoOutSid_edt.Focused then begin //dosomething end;
阅读全文
posted @
2012-06-05 12:47
del88
阅读(4)
推荐(0) 编辑
