Komponente wird nur zur Designzeit gezeichnet

[Sunlight7]

Hallo nochmal,

sorry, hatte erste jetzt zum zum testen...

Nach dem sich Delphi beim compilieren gleich mal aufgehängt hat:

Delphi-Quellcode:

procedure TPanelWrapper.Paint;
begin
  inherited;

  // Das hat in der Paint procedure nichts zu suchen!
  // Da es sonst immer wieder ein Paint auslöst!
  {case FPanelState of
       psUp:
         begin
           Self.BevelInner := bvRaised;
           Self.BevelOuter := bvRaised;
         end;
       psDown:
         begin
           Self.BevelInner := bvLowered;
           Self.BevelOuter := bvLowered;
         end;
       psDefault:
         begin
           Self.BevelInner := bvNone;
           Self.BevelOuter := bvRaised;
         end;
  end;} 
end;

Die andere Sache ist einfach, das Panel wird ja auch zur Laufzeit gezeichnet, aber da Width und Height auf 0 gesetzt sind sieht man rein gar nix

Wenn Du eine Komponente auf das Panel setzt siehst Du was ich meine, dann funktionierts ja.