TPanel: Height überschreiben

[himitsu]

PS: dein Weg wäre vermutlich auch gegangen, allergings mit einer Änderung

Delphi-Quellcode:

procedure TMaskFrame.SetHeight(Value: Integer);
begin
  If FHeight <> Value then
    begin
      FHeight := Value;
      inherited Height := Value + 30;
    end;
end;

und es wäre FHeight sozusagen doppelt vorhanden, einmal bei dir und in den Vorfahren