Shape auf Panel oder Panel mit Muster

[Fussball-Robby]

weise dem Shape das Panel als Parent zu, dann liegt es auf dem Panel

[Edit]Wenn das Shape dann aber das ganze Panel verdeckt, wird das OnMouseDown des Panels nicht mehr ausgeführt und du kannst das Panel nicht mehr verschieben. DAher müsstest du noch das hier einfügen:

Delphi-Quellcode:

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Panel1MouseDown(Panel1, Button, Shift, X, Y);
end;

Anstatt Panel1 nimmst du natürlich das aktive Panel [/Edit]