一般只能改變MEMO背景顏色而已，    那MEMO元件，如何加入背景圖案呢？        網海無涯，學無止境!

Canvas.Draw即可，不止TMemo,其他一些元件也是可以的，下面是具體實現，參考看看 < class="code"> procedure TForm1.Button1Click(Sender: TObject); var DC: HDC; bmp: TBitmap; ACanvas:TCanvas; iX, iY: Integer; //圖片位置座標 begin iX := 0; iY := 0; ACanvas := TCanvas.Create; bmp := TBitmap.Create; DC := GetWindowDC(Memo1.Handle); try ACanvas.Handle := DC; Bmp.LoadFromFile('C:\SAMPLE.bmp'); ACanvas.Draw(iX, iY, bmp); finally ReleaseDC(Memo1.Handle, DC); ACanvas.Free; bmp.Free; end; end;

謝謝指教~^^    網海無涯，學無止境! 發表人 - qoo1234 於 2003/07/23 21:47:30

阿？剛剛看還有空白問題，我和同事打了一把星際回頭再來看你就結案了，用Canvas畫出來的是無法保存的，可以攔截WM_Paint消息進行重畫，或許直接在Memo中加入image元件也是一種選擇，估計要真正達到比較滿意的效果還不少事情要做，嗯，另外有這方面的第三方元件(DreamMemo?記不大清楚了，有興趣的話可自己找找看)，也可參考看看。