Shape auf Panel oder Panel mit Muster

[hedie]

Hallo

Ich möchte gerne ein Panel mit einem Muster haben.

Dazu habe ich mir ein Shape auf die Form gelegt.
Da Die Panels Dynamisch erzeugt werden und es
durchaus recht viele sein können, habe ich mir gedacht, das ich
zum anzeigen des aktiven Panels, es Mit einem Muster belege.

Das Shape soll dan immer an die Aktive Position verschoben werden.

Die habe ich so gelöst.

Delphi-Quellcode:

Shape1.Left := Panel5.Left;
Shape1.Top := Panel5.Top;
Shape1.Height := Panel5.Height;
Shape1.Width := Panel5.Width;
Shape1.Brush.Style := bsDiagCross;
Shape1.Visible := True;
Shape1.BringToFront;

Jedoch genügt bring to front nicht um es ÜBER dem Panel anzuzeigen.

Hat da jemand eine idee wie ich das Über das Panel zeichnen kann?


Mit diesem Code im MouseDown event Verschiebe ich das Panel

Delphi-Quellcode:

  ReleaseCapture;
  // mit TWinCotrol verschieben, $F012 verschiebt den Button
  TWinControl(Sender).Perform(WM_SYSCOMMAND, $F012, 0);

Wi kann ich dabei das Shape mitverschieben?


Danke schonmal