RichEditを透明にした場合のスクロールバーを表示


上海ケルベロス  2011-02-24 19:15:28  No: 40099  IP: 192.*.*.*

with RichEdit1 do
  begin
    BorderStyle := bsNone;
    ScrollBars := ssBoth;
    HideScrollBars := False;
    Brush.Style := BsClear;
    SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_TRANSPARENT);
  end;

上記コードでRichEditの背景を透明にして使っていますが、
スクロールバーまで消えてしまい、スクロールバーのある位置にカーソルを
持っていくと、現れます。
スクロールバーのみ表示したまま背景を透明にするか、
スクロールバーごと透明にした後に、スクロールバーだけ再絵画したいと
思うのですが、思うようにいかないものでw
何か良い手はないものでしょうか?

Windows 7 + Delphi 2010 です。
よろしくお願いします。

編集 削除