TEdit - 随笔分类 - del88

自己写的限制文本框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 阅读(253) 评论(0) 推荐(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 阅读(17) 评论(0) 推荐(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 阅读(21) 评论(0) 推荐(0)

TEdit设置焦点和判断当前是否是焦点

摘要：{锁定扫描快递单号输入框} InputScanFahuoOutSid_edt.SetFocus; if InputScanFahuoOutSid_edt.Focused then begin //dosomething end; 阅读全文

posted @ 2012-06-05 12:47 del88 阅读(15) 评论(0) 推荐(0)

随笔分类 - TEdit