Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Shape auf Panel oder Panel mit Muster

    Delphi
    by Fussball-Robby, 12. Apr 2008
  weise dem Shape das Panel als Parent zu, dann liegt es auf dem Panel
  
  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:
  procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  begin
  ...