Wie bekomme ich ein TCustomControl transparent?

[DeddyH]

Mal wieder zu meinem runden Button: ich habe ihn von TCustomControl abgeleitet, damit ich solche Dinge wie DoubleBuffered nutzen kann. Leider bekomme ich es nur unter Verwendung einer Maske hin, ihn transparent zu zeichnen, was ihn aber am Rand wieder pixelig aussehen lässt. Das muss doch auch anders gehen, oder? TransparentColor, ControlStyle - [csOpaque] etc. haben alle nichts gebracht :cry:

[toms]

Hallo, kannst du das Control nicht mit WS_EX_Transparent transparent machen?

Delphi-Quellcode:

type
  TDeinButtonControl = class(TCustomControl)
    public
        procedure CreateParams(var Params: TCreateParams); override;
        constructor Create(AOwner: TComponent); override;
        destructor Destroy; override;
    end;

//..

procedure TDeinButtonControl.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 Params.ExStyle := Params.ExStyle+WS_EX_TRANSPARENT;
 // Evtl ControlStyle := ControlStyle-[csOpaque];
end;

[DeddyH]

Danke, aber das bringt leider nichts (wie bereits gesagt, ControlStyle hatte ich auch schon versucht).

[toms]

Zitat:

Danke, aber das bringt leider nichts (wie bereits gesagt, ControlStyle hatte ich auch schon versucht).

Das ist wohl nur ein Teil des ganzen transparenten Kuchens.

Hast du auch schon mit WM_ERASEBKGND gespielt?

[DeddyH]

Zitat:

Zitat von toms

Hast du auch schon mit WM_ERASEBKGND gespielt?

Jepp. Im Moment mache ich es nun so, dass man sich die Hintergrundfarbe aussuchen kann. Diese stellt man dann halt sinnigerweise auf diejenige des Elterncontrols. Ist allerdings bei Hintergrundbildern oder Farbverläufen nicht so günstig.