CustomControl nach Repaint nicht mehr transparent

[omata]

Und wenn du deine Paint-Methode zum Zeichnen benutzt?

Delphi-Quellcode:

procedure TPControl.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  FMouseOver := True;
  Paint; 
end;