TRichEdit transparent bzw. mit Hintergrund

[Flocke]

Also ich habe gerade meinen ersten Hinweis noch einmal ausprobiert mit:

Delphi-Quellcode:

unit TransparentRichEdit;

interface

uses
  SysUtils, Windows, Messages, Classes, Controls, JvRichEdit;

type
  TTransparentRichEdit = class(TJvRichEdit)
  private
    procedure WMEraseBkGnd(var Message: TWMEraseBkGnd); message WM_ERASEBKGND;
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

implementation

{ TTransparentRichEdit }

procedure TTransparentRichEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;

procedure TTransparentRichEdit.WMEraseBkGnd(var Message: TWMEraseBkGnd);
begin
  Message.Result := 1;
end;

end.

und das funktioniert bei mir einwandfrei - auf jeden Fall so, dass man eine Bitmap dahinter legen kann, die durch den Text hindurchscheint (siehe Screenshot im Posting weiter oben).