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.
