2012 年 7月 2 日随笔档案 - del88

2012年7月2日

摘要： edit控件，怎样分别获取光标所在位置前面、后面的字符串 showmessage( '光标前："' +copy(edit1.Text,1,edit1.SelStart) +'" 光标后："' +copy(edit1.Text,edit1.SelStart+1,length(edit1.Text)) 阅读全文

posted @ 2012-07-02 21:33 del88 阅读(16) 评论(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)

TSrollBox 跟随鼠标滚动

摘要：方法一: 于Form或ScrollBox的MouseWheel事件中添加如下代码: if WheelDelta <0 then scrollbox1.Perform(WM_VSCROLL,SB_LINEDOWN,0) else scrollbox1.Perform(WM_VSCROLL,SB_LIN 阅读全文

posted @ 2012-07-02 00:46 del88 阅读(39) 评论(0) 推荐(0)