TPanel: Height überschreiben

[Helmi]

Hallo,

ich habe eine Komponente die von TPanel abgeleitet ist.
Nun möchte ich gerne das Height überschreiben.

Wie mach ich das am Einfachsten?

[himitsu]

schonmal versucht es einfach neu zu definieren?

und um auf das "alte" Property zuzugreifen, gibt es auch da das gute alte Inherited. :stupid:

[Helmi]

ich habs so propiert:

Delphi-Quellcode:

private
  FHeight: Integer;
  procedure SetHeight(Value: Integer);

puplished
    property Height: Integer read FHeight write SetHeight;

{ ... }

procedure TMaskFrame.SetHeight(Value: Integer);
begin
  If FHeight <> Value then
    begin
      FHeight := Value;

      self.Height := Value + 30;
    end;
end;

Zur Erklärung, egal was eingegeben wird als Height, es soll immer 30 dazu gerechnet werden.

Wenn ich das ausführe, bekomm ich einen Stack-Überlauf.
Sprich, ne Endlosschleife.

[Satty67]

Du rufst mit self.heigth auch permanent SetHeight auf.

Schreib einfach FHeight := Value +30;

[Helmi]

Hab ich ausprobiert.

Aber dann wird die Höhe nicht geändert....

[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;

[Satty67]

Ach OK, man sollte alles lesen. Geht ja um eine TPanel Ableitung...

/killed ;)

[Helmi]

Zitat:

Zitat von himitsu

und so?

ja genau so :-)

Danke - das hat funktioniert!

[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

[Helmi]

Zitat:

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.

[Bernhard Geyer]

Vermutlich ist es die einfachste/sauberste Methode die Methode

Delphi-Quellcode:

    procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); virtual;

welche in der Klasse TControl definiert ist zu überschreiben.