TPanel: Height überschreiben

[Helmi]

Zitat von 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

Hallo Himitsu,

deine Änderung klingt gut! - Ich werde das heute nachmittag/abend mal ausprobieren.
Jetzt gehts nicht, weil ich schon der Arbeit bin...

Ich hab das inherited vor der If-Anweisung gehabt (so wie z. b. bei einem constructor).

Mit deiner Änderung hätte ich mein eigenes FHeight für weitere Zwecke im Code vorhanden.