如何实现在duilib richeditt中确定鼠标的当前行数和列数

来源：蜘蛛抓取(WebSpider) 时间：2017-03-16 09:11 标签： vc richedit
怎么判断鼠标在richedit中点击了选中文本
怎么判断鼠标在richedit中点击了选中文本
发布时间： 19:29:50
编辑：www.fx114.net
本篇文章主要介绍了"怎么判断鼠标在richedit中点击了选中文本"，主要涉及到怎么判断鼠标在richedit中点击了选中文本方面的内容，对于怎么判断鼠标在richedit中点击了选中文本感兴趣的同学可以参考一下。
怎么判断鼠标在richedit中点击了选中文本如何判断鼠标在richedit中点击了选中文本？在richedit中选中一处文本后，用鼠标点击所选文本，如何判断鼠标是点在选中文本上还是选中文本之外? & & & & & 我已知道如何获取当前鼠标在richedit中的位置，但不知该如何取得所选文本在屏幕上的矩形范围是多少?//。。。。。 private { Private declarations } FSelText: //。。。。。 //看看运行效果是不是你需要的先 procedure TForm1.RichEdit1MouseUp(Sender: TO Button: TMouseB Shift: TShiftS X, Y: Integer); begin if (RichEdit1.SelLength = 0) and (FSelText && ' ') then Caption := FSelText else Caption := 'no select '; procedure TForm1.RichEdit1MouseDown(Sender: TO Button: TMouseB Shift: TShiftS X, Y: Integer); begin FSelText := RichEdit1.SelT
type TForm1 = class(TForm) RichEdit1: TRichE PopupMenu1: TPopupM Copy1: TMenuI Cut1: TMenuI N1: TMenuI Paste1: TMenuI procedure RichEdit1MouseDown(Sender: TO Button: TMouseB Shift: TShiftS X, Y: Integer); procedure RichEdit1SelectionChange(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Copy1Click(Sender: TObject); procedure Paste1Click(Sender: TObject); procedure Cut1Click(Sender: TObject); private { Private declarations } public { Public declarations } var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.RichEdit1MouseDown(Sender: TO Button: TMouseB Shift: TShiftS X, Y: Integer); begin if ssRight in Shift then PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y); procedure TForm1.RichEdit1SelectionChange(Sender: TObject); begin Copy1.Enabled := Boolean(RichEdit1.SelLength); Cut1.Enabled := Boolean(RichEdit1.SelLength); procedure TForm1.FormCreate(Sender: TObject); begin Copy1.Caption := 'Copy '; Cut1.Caption := 'Cut '; N1.Caption := '- '; Paste1.Caption := 'Paste '; Copy1.Enabled := Cut1.Enabled := procedure TForm1.Copy1Click(Sender: TObject); begin RichEdit1.CopyToC procedure TForm1.Cut1Click(Sender: TObject); begin RichEdit1.CutToC procedure TForm1.Paste1Click(Sender: TObject); begin RichEdit1.PasteFromC end.
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播不法有害信息！
二、互相尊重，对自己的言论和行为负责。
本文标题：
本页链接：procedure GotoRowCol(Row, Col : I RichEdit : TRichEdit);var& TextLen, i : Ibegin& if Row & RichEdit.Lines.Count then E& TextLen := 0;& for i := 0 to Row - 1 do&&& TextLen := TextLen + Length(RichEdit.Lines[i]) + 1;
if (Col &= Length(RichEdit.Lines[Row - 1])) and (Col & 0) then&&& TextLen := TextLen + Col - 1;
RichEdit.SelStart := TextLen - Length(RichEdit.Lines[Row - 1]);& SendMessage(RichEdit.Handle, EM_SCROLLCARET, 0,0);procedure TForm1.BitBtn1Click(Sender: TObject);begin& GotoRowCol(2, 0, RichEdit1);//转到2行0第一个字符处& RichEdit1.SetF
注明：本文章属于转载，仅供行业人员学习交流使用，文章版权属于原创作者，在此向原创者致敬，感谢原创作者为大家学习交流提供精品内容。
站方声明：IThao123是为广大互联网从业者免费提供学习交流的平台，如果侵犯了原创著作权，请联系站方删除，给你带来不便，深表歉意。问题： 如何获取鼠标点击到哪个RICH EDIT控件里
描述:MFCRICH&EDIT鼠标
如题所述问题！
新手提问，望各位大神，不吝赐教！解决方案1:
OnNcHitTest
WindowFromPoint
解决方案2:
GetFocus(()&?
WindowFromPoint()
以上介绍了“ 如何获取鼠标点击到哪个RICH EDIT控件里”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：/itwd/4314348.html
上一篇： 下一篇：

我要回帖

更多关于 vc richedit 的文章

 

随机推荐