JvPanel zur Laufzeit skalieren

[Jens Hartmann]

Ich weiß, das geht. Da Du die Höhe hier durch das OnClick beeinflussen tust.

Du kannst aber die Größe ja auch bei der Eigenschaft Sizeable := True; über die Maus mit ziehen im unteren Bereich einstellen. Dabei passiert nichts..

[Bummi]

OK, jetzt habe ich verstanden wo es hängt ....

Delphi-Quellcode:

  TForm1 = class(TForm)
    JvPanel1: TJvPanel;
    procedure JvPanel1ChangedHeight(Sender: TObject; ChangedSize: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TJvPanel }

procedure TJvPanel.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
  inherited;
  if Assigned(OnChangedHeight) then OnChangedHeight(Self,AHeight);

end;

procedure TForm1.JvPanel1ChangedHeight(Sender: TObject; ChangedSize: Integer);
begin
  Caption := (IntToStr(ChangedSize));
end;

[Jens Hartmann]

Zitat von Bummi:

Delphi-Quellcode:

procedure TJvPanel.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
 begin
   inherited;
     if Assigned(OnChangedHeight) then OnChangedHeight(Self,AHeight);
end;

Wie kann ich SetBounds einbinden. Bei mir wird das Fehler erkannt.
Ich muss allerdings gestehen, noch nie eine Prozedur mit dem Aufruf inherited aus einer anderen Klasse genutzt zu haben.

Gruß Jens

[Bummi]

Delphi-Quellcode:

type

  TJvPanel=Class(JVPanel.TJvPanel)
        procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);override;
  End;

  TForm1 = class(TForm)
    JvPanel1: TJvPanel;
    procedure JvPanel1ChangedHeight(Sender: TObject; ChangedSize: Integer);
  private
    { Private-Deklarationen }
.................
................

[Jens Hartmann]

Ahhhh, so gehts.

Danke nochmal...

Gruß Jens