請問一下各位，就是當在操作richedit的元件時，當在某個字串上雙擊某文字，則richedit會自動將某一段字反黑，我想請問就是如果我要取得反黑後的位置，但不是selstart的位置，有點類似caretpos的x值一樣，但是是要從被反黑後的字當x值，範例如下：
第一列：AAAAAAA AAAAAA
第二列：KKKK KKK

像上面的例子，我需要取得的位置應該是X=6，Y=2
請問我有什麼方式可以取得，另外要提到的一件事是使用者在雙擊滑鼠時，不一定是在要反黑的字串的起始點，有可能在中間的部份，例如可能點擊是KKKABKK中的AB的位置，讓此段文字反黑的，請問各位有沒有什麼方法可以達到此功能，謝謝各位。

------
DELPHI初學者

您好

可以試試看！
//起始位置
i := richedit1.SelStart;

//選取長度
i := richedit1.SelLength;

應該可以達到你的需求吧！

------
Pillar Wang

不是很懂問題是甚麼, re.SelStart和re.SelLength不就是合案了嗎？
如果一定要用x,y, 將re.SelStart轉換就可以了


[code delphi]
procedure RichEditPos(re:trichedit; pos: integer; var x,y: integer);
begin
y:=re.Perform(EM_LINEFROMCHAR, pos, 0);
x:=pos-re.Perform(EM_LINEINDEX, y, 0);
end;
[/code]

看看是不是你要的
[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
x,y:Integer;
begin
x:= richedit1.SelStart;
y := 0;
while x > Length(richedit1.Lines[y]) 1 do
begin
x := x - Length(richedit1.Lines[y])-1;
Inc(y);
end;
ShowMessage('X:' IntToStr(x) #13#10 'Y:' IntToStr(y 1));
end;
[/code]

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL