在RichEdit上就會出現字還有在圖，但我有二個問題：
一、圖出現是出現，可是字出不來
二、怎麼讓這個圖可以按呢？就像Button一樣可以讓他按下去會有動作 <textarea cols="60" rows="10" class="cpp" name="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { RichEdit1->Lines->Add(Edit1->Text); TImage *image =new TImage(Form1); image->Left=10; image->Top=100; image->AutoSize=true; image->Picture->LoadFromFile("03.jpg"); image->Parent=RichEdit1; Edit1->Text=""; } </textarea></font>

因為我原本的問題是要問怎麼讓圖出現在richedit元件，一開始沒程式碼所以就沒上傳，可是這
部份剛剛在別的網站找到類似的，然後自己就把他實作出來，本來想說用修改可以上傳程式碼
可是好像不行，所以就把我做的程式碼貼給大家看，如果想幫我的人要複製我的程式碼的話，
你要在bcb上拉button、richedit及edit三個元件並在此檔案的資料夾裡放置一張03.jpg的圖唷！
之後應該就知道我的問題了。

在你的Form Class 裡宣告 ImageClick 函數
<textarea class="cpp" rows="10" cols="60" name="code">void __fastcall ImageClick(TObject *Sender); </textarea>
實作 ImageClick 函數並指定到你 TImage Object 0nClick
<textarea class="cpp" rows="10" cols="60" name="code">//--------------------------------------------------------------------------- void __fastcall TForm1::ImageClick(TObject *Sender) { ShowMessage("Image Click"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { RichEdit1->Lines->Add(Edit1->Text); TImage *image =new TImage(Form1); image->Left=10; image->Top=100; image->AutoSize=true; image->Picture->LoadFromFile("03.jpg"); image->Parent=RichEdit1; image->0nClick = &ImageClick; //這裡 Edit1->Text=""; } //--------------------------------------------------------------------------- </textarea>

不要用拷貝貼上因為這裡的0nClick 第一個字母我是用數字，不然會被濾掉@@

------
~§~迷時師渡，悟了自渡~§~

編輯記錄

圖已經可以按了，可是我輸入的文字還是看不到，這是什麼原因呢？

<textarea class="cpp" rows="10" cols="60" name="code"> RichEdit1->Lines->Add(Edit1->Text); RichEdit1->Repaint(); //加這行 </textarea>
===================引 用 astro0803 文 章===================
圖已經可以按了，可是我輸入的文字還是看不到，這是什麼原因呢？

------
~§~迷時師渡，悟了自渡~§~

我可以再請教你一下，為什麼還要再加上RichEdit1->Repaint()這行程式呢？雖說是重畫，但用意為何，有點不明白？另外能控制這個圖加在字的後面嗎？因為我現在是設定好位置讓圖加進來，但是第一次輸入文字他還可以顯示出來，可是再次輸入文字就又變成只有圖了，所以我在想是不是因為位置的問題

編輯記錄