我現在想在RichEdit內寫1個多選的功能
我有爬過文 查到相關的文章：http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=88892
以上文的例子：我 [ 愛 | 很愛 | 超愛 ] 你 在一開始的時候 只會在RichEdit中出現 我 愛 你 這3個字
當滑鼠點擊 愛這個字的時候 會在隔壁的ListBox中 Show出：愛、很愛、超愛 這幾個選項 然後選 很愛 之後按下確定後
RichEdit中的文字變成了=> 我 很愛 你 這樣...
我有2個問題想問.......
1.如果依我爬到的文來做 請問要怎麼使用所謂的超連結呢？
2.除了我爬到的文外 想請問是否還有別種的做法呢？
我先謝謝回答問題的人了 .......

------
Yap~~~

用鼠标取得当前位置的隐藏属性的文字即可。
//专门为资料收集库做的，看看后面是否有<:TO字样，有就返回整个<...>字符串。
[code delphi]

function TCustomRichEdit20.WordAtMouseEx(X,Y:Integer;var WordAtMouseStr:string): Integer;
var
iCharIndex, iLineIndex, iCharOffset, i, j: Integer;
Pt: TPoint;
s: widestring;
FlagStr :string;
begin
Result := -1;
Pt := Point(X, Y);
// Get Character Index from word under the cursor
iCharIndex := Perform(EM_CHARFROMPOS, 0, Integer(@Pt));
if iCharIndex < 0 then Exit;
// Get line Index
iLineIndex := Perform(EM_EXLINEFROMCHAR, 0, iCharIndex);
iCharOffset := iCharIndex - Perform(EM_LINEINDEX, iLineIndex, 0);
if Lines.Count - 1 < iLineIndex then Exit;
// store the current line in a variable
s := Lines[iLineIndex];

FlagStr :=Copy(s, iCharOffset, Length(s));
if Pos('<:TO',FlagStr)<>0 then
begin
// Display Text under Cursor
WordAtMouseStr := FlagStr;
Result:=iCharOffset;
end;
end;
[/code]

編輯記錄