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

上海ケルベロス 2011-02-25 04:15:28 No: 40099

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

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

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