TPanel: Height überschreiben

[himitsu]

und so?

Delphi-Quellcode:

private
  function GetHeight: Integer;
  procedure SetHeight(Value: Integer);

puplished
    property Height: Integer read GetHeight write SetHeight;

{ ... }

function TMaskFrame.GetHeight: Integer;
begin
  Result := inherited Height - 30;
end;

procedure TMaskFrame.SetHeight(Value: Integer);
begin
  inherited Height := Value + 30;
end;