procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
  FDownPoint: TPoint;
begin
  if Button=mbRight then
  begin
    GetCursorPos(FDownPoint);
    PopupMenu1.Popup(FDownPoint.X,FDownPoint.Y);
  end;
end;
 

引言: 改變你對Delphi內建RichEdit的看法 去下載吧！(含範例，範例是用Delphi6編寫的) http://ak.no-ip.com/RichEditPlus/RichEditPlus.zip 我將整個以上的功能都整理好了 我想大家都很聰明，應該不用我再為範例多做解釋了 發表人 - akai 於 2003/05/29 22:03:44

引言: 好像不能从剪贴板粘贴图片 另外谁能做个bcb的例子.

引言:

引言: 改變你對Delphi內建RichEdit的看法 去下載吧！(含範例，範例是用Delphi6編寫的) http://ak.no-ip.com/RichEditPlus/RichEditPlus.zip 我將整個以上的功能都整理好了 我想大家都很聰明，應該不用我再為範例多做解釋了 發表人 - akai 於 2003/05/29 22:03:44

小弟資質駑鈍，還是希望這位前輩高手能詳細解釋一下，因為它牽涉到 太多技術，小弟完全看不懂 :( 因為小弟用的是 BCB，想在 BCB 重現它的功能就必須改寫它， 雖然直接匯入 .pas 檔加 include 可以套用過來，不過這不是長久之計， 因為這對功力沒有幫助。 改寫對目前的我來說近乎不可能，因為它的原理和轉換看得我頭昏腦漲... 看起來它是改寫 RichEdit 的內部設定了 ? 發表人 - xfile 於 2004/10/25 15:29:19 發表人 - xfile 於 2004/10/25 16:59:26

引言:

引言:

引言: http://ak.no-ip.com/RichEditPlus/RichEditPlus.zip 我將整個以上的功能都整理好了 我想大家都很聰明，應該不用我再為範例多做解釋了

小弟資質駑鈍，還是希望這位前輩高手能詳細解釋一下，因為它牽涉到 太多技術，小弟完全看不懂 :(

我不確定您是需要RichEdit的哪一項功能 如果您覺得複雜麻煩看不懂，而無法改成BCB版 我會建議您放棄參考本篇文章 請參考我所發表的 功能更強大的TWebBrowser

引言: to akai： 我下载了RichEditPlus.zip，非常感谢！ 现在我碰到一个问题： 我在RichEditPlus.zip中运行试用，可以在RichEdit中插入一个文档图标。并把RichEdit的内容保存成文件。在程序外打开，内容正确。我在我的程序中，可以插入文档，但保存到文件时，在外面打开文件后，不能看到文档图标。只有一个空格位置。 另外，请教如何把有插入文档的文件保存到Access的数据库中。我可以保存一个文件到OLE对象，带有插入文档的文件是否也一样，反过来，显示如何处理？ 谢谢！！！

RichEdit1.Lines.SaveToFile('c:\1.rtf'); 

function StreamToStr(Stream: TStream): string;
begin
  setLength(result, Stream.Size);
  Stream.Position := 0;
  Stream.ReadBuffer(result[1], Stream.Size);
end;    procedure StrToStream(var S: string; Stream: TStream);
begin
  Stream.Position := 0;
  Stream.WriteBuffer(s[1], length(s));
end;
 

引言:

引言:

引言:

引言: http://ak.no-ip.com/RichEditPlus/RichEditPlus.zip 我將整個以上的功能都整理好了 我想大家都很聰明，應該不用我再為範例多做解釋了

小弟資質駑鈍，還是希望這位前輩高手能詳細解釋一下，因為它牽涉到 太多技術，小弟完全看不懂 :(

我不確定您是需要RichEdit的哪一項功能 如果您覺得複雜麻煩看不懂，而無法改成BCB版 我會建議您放棄參考本篇文章 請參考我所發表的 功能更強大的TWebBrowser

這篇分享的確很有參考價值，但是 ... 因為沒有什麼註解，所以很難看懂，完全不知道那三個重要檔案中 前置作業的那些動作到底是在做什麼 < > 更離奇的是 > 唉 .... 線索是有了，不過距離理想還很遠 ..... 請原諒小弟這麼久才回覆，因為系統沒有通知，我也不知道有人回應< > 發表人 - > 沒關係 系統也沒通知我 我不曉得您所寫到的「利用指令的方式去插入圖片」是指什麼 我範例中的Add BMP不也是透過指令嗎？ 如是不要讓使用者修改 為何不將屬性ReadOnly設定為True呢？

引言: 我不曉得您所寫到的「利用指令的方式去插入圖片」是指什麼 我範例中的Add BMP不也是透過指令嗎？ 如是不要讓使用者修改 為何不將屬性ReadOnly設定為True呢？

抱歉抱歉，當時功力不夠沒能看出來 剛剛試了一下，即使改成 ReadOnly，圖片還是可以改變大小 要改成跟

引言:

引言: 我不曉得您所寫到的「利用指令的方式去插入圖片」是指什麼 我範例中的Add BMP不也是透過指令嗎？ 如是不要讓使用者修改 為何不將屬性ReadOnly設定為True呢？

抱歉抱歉，當時功力不夠沒能看出來 剛剛試了一下，即使改成 ReadOnly，圖片還是可以改變大小 要改成跟 >< face="Verdana, Arial, Helvetica"> 基本上MSN應該是用TWebBrowser不是RichEdit http://delphi.ktop.com.tw/topic.php?TOPIC_ID=50859 兩者功能是不相同的 如果有研究精神 我會建議深入研究TWebBrowser