Transparent Panel Component

[Deiv]

Hola amigos, esperando que hayan pasado una feliz Navidad desearles un venturoso 2007, mis mayores augurios para que se cumplan todos sus deseos.
Hoy recurriendo nuevamente a vuestra ayuda, no estoy muy compenetrado con la Programación de Componentes (aclaro), y por ahí me recomendaron el Componente de abajo que transparenta un Panel.
He probado el componente, dentro del mismo he incluido una TIMage con la propiedad transparente=true, y funciona bien; pero ocurre algo extraño, he ubicado al componente TMyPanel (incluido la TImage transparente) encima de otros objetos (TButtons, TEDits, etc) y ya sea en tiempo de diseño (cuando arrastro el componente a otra posición) o ya sea en tiempo de ejecución cuando arrastro con:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; //un número mágico
begin
ReleaseCapture;
MyPanel1.perform(WM_SysCommand, SC_DragMove, 0);
end;

El componente TMyPanel captura toda el área donde estaba transparente (encima de otros objetos) y al arrastre como dije en tiempo de diseño o ejecución, arrastra y dibuja esa area también.
¿A que se debe todo ello? ¿Cómo solucionar este componente al arrastre del mouse y dibuje cada instante transparente?
unit CustomPanel1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls;
type
TMyPanel = class(TCustomPanel)
private
FTransparent: Boolean;
procedure SetTransparent(const Value: Boolean);
{ Private declarations }
protected
{ Protected declarations }
procedure CreateParams(var Params: TCreateParams); override;
procedure Paint; override;
procedure PutCaption(ACanvas: TCanvas); dynamic;
procedure WMEraseBkgnd(var Msg: TWMEraseBkgnd); message WM_ERASEBKGND;
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
published
property Transparent: Boolean read FTransparent write SetTransparent default False;
property Caption;
property Font;
property Alignment;
property OnClick;
property Enabled;
property FullRepaint;
property Color;
property ParentColor;
property OnCanResize;
property OnConstrainedResize;
property OnContextPopup;
property OnDblClick;
property OnDockDrop;
property OnDockOver;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnGetSiteInfo;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnResize;
property OnStartDock;
property OnStartDrag;
property OnUnDock;
end;
procedure Register;
implementation
const
_Transparent = TRANSPARENT;

procedure TMyPanel.WMEraseBkgnd(var Msg: TWMEraseBkgnd);
begin
Msg.Result := 1;
end;
procedure TMyPanel.PutCaption(ACanvas: TCanvas);
const
_Alignment: array [TAlignment] of Longint = (DT_LEFT, DT_RIGHT, DT_CENTER);
var
RectTxt: TRect;
Flags: Longint;
begin
with ACanvas do
begin
if Caption <> '' then
begin
ACanvas.Font := Self.Font;
SetBkMode(Handle, _Transparent);
Font := Self.Font;
RectTxt := GetClientRect;
InflateRect(RectTxt, -BorderWidth, -BorderWidth);
Flags := DT_EXPANDTABS or _Alignment[Alignment];
Flags := DrawTextBiDiModeFlags(Flags);
DrawText(ACanvas.Handle, PChar(Caption), -1, RectTxt, Flags or DT_CALCRECT);
OffsetRect(RectTxt,0, -RectTxt.Top+(Height-(RectTxt.Bottom-RectTxt.Top)) div 2);
case Alignment of
taRightJustify:
OffsetRect(RectTxt, - RectTxt.Left +
(Width - (RectTxt.Right - RectTxt.Left) - BorderWidth - 0), 0);
taCenter:
OffsetRect(RectTxt, -RectTxt.Left +
(Width - (RectTxt.Right - RectTxt.Left)) div 2, 0);
end;
if not Enabled then
Font.Color := clGrayText;
if Transparent then
SetBkMode(ACanvas.Handle, _Transparent);
DrawText(ACanvas.Handle, PChar(Caption), -1, RectTxt, Flags);
end;
end;
end;

procedure TMyPanel.Paint;
begin
PutCaption(Canvas);
end;

constructor TMyPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FTransparent := True;
end;
procedure TMyPanel.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
if Transparent then
begin
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
ControlStyle := ControlStyle - [csOpaque];
end
else
begin
Params.ExStyle := Params.ExStyle and not WS_EX_TRANSPARENT;
ControlStyle := ControlStyle + [csOpaque];
end;
end;
procedure TMyPanel.SetTransparent(const Value: Boolean);
begin
if Value <> FTransparent then
begin
FTransparent := Value;
RecreateWnd;
end;
end;
procedure Register;
begin
RegisterComponents('David', [TMyPanel]);
end;
end.

¿A que se debe que captura esa área? ¿Cómo solucionar este componente al arrastre del mouse y dibuje cada instante transparente?

[DarKraZY]

Perdona si me meto donde no me llaman, pero ¿para qué te sirve un TPanel transparente?

Ya que un TPanel sirve para agrupar componentes dentro de él, y te permite especificar bordes de varias maneras. Pero en caso de ser transparente no tendría pues ningún uso visual. Creo yo.

[Deiv]

Te respondo:
Si alguien logra corregir el Componente (de no grabar esa área del TMyPanel al moverlo) entonces, lo que he ido investigando para enlazar a mi pregunta que noté estuvo y está difícil de responder: Mouse con Texto Orbital (http://www.clubdelphi.com/foros/showthread.php?t=38503) lograría ese efecto del mouse con varias TImage's dentro del TMyPanel.
Un TPanel sirve como dijiste eso: para contener objetos (y yo contendré TImages Transparentes) y además recordar que un TPanel se sobrepone a cualquier objeto por encima (a mi pregunta del Mouse Orbital), pues finalmente mi objetivo será de contener muchas TImages y aplicar el código del Mouse Orbital.

Despues de todo el TMyPanel en forma estática dibuja bien el transparente sobreponiéndose a otros objetos con "Bring To Front", el problema está al moverlo.

De no ser posible corregir este componente, entonces detendré todo esfuerzo de tiempo de investigación para lograr ese efecto y, resumirme solo a un mouse animado cualquiera,...... ni modo.
Un saludo