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).