JvPanel zur Laufzeit skalieren

[Jens Hartmann]

Hallo und einen schönen Sonntag zusammen,

ich habe ein Form mit mehreren gleichgroßen JvPanel Komponenten. Ich möchte diese zur Laufzeit skalieren können. Das geht auch soweit ohne Problem. Jetzt kommt das was ich bislang noch nicht hinbekommen habe. Ändere ich die Größe von z.B. Panel1, sollen alle anderen Panels ebenfalls gleichmäßig mit "Größer" oder "Kleiner" werden.
Die Panels werden zur Laufzeit auch erst erstellt. Das heißt, ich muss der Methode eine Prozedure zuweisen.

Delphi-Quellcode:

private
  //Methoden zu JvPanel
  procedure PanelSetWidth(Sender: TObject; ChangedSize: Integer);
  procedure PanelSetHeight(Sender: TObject; ChangedSize: Integer);

...
//Erstellen der Panels zu Laufzeit
  Panels[i] := TJvPanel.Create(Self);
  with Panels[i] do
    begin
      Name := 'p'+IntToStr(i);;
      Parent := ParentPan;
      Align := alClient;
      Height := KPanelHeight;
      Width := KPanelWidth;
      Caption := IntToStr(i);
      Sizeable := True;
      OnChangedWidth := PanelSetWidth;
      OnChangedHeigth := PanelSetHeigth;
      TabOrder := i;
    end;

Das Problem ist, ich kann das entsprechenden Panel skalieren, allerdings wird die Methode OnChangeWidth und OnChangeHeigth nie aufgerufen. Selbst wenn ich eine Komponente zur Entwurfszeit auf die Form legen und z.B. ein ShowMessage('Größe geändert'); in die Methode eintrage. Es passiert nichts. Kennt jemand vieleicht das Problem?

Gruß Jens

[mkinzler]

Versuzch es mal ohne with

[Jens Hartmann]

Zitat von mkinzler:

Versuzch es mal ohne with

Was soll das bringen, selbst bei zur entwurfszeit erstellten Panels, wird die Methode nich gefeuert...

[Bummi]

Du musst eine Prozedur zuweisen die erreichbar ist

Delphi-Quellcode:

  TForm1 = class(TForm)
    JvPanel1: TJvPanel;
    procedure JvPanel1ChangedHeight(Sender: TObject; ChangedSize: Integer);
//......

procedure TForm1.JvPanel1ChangedHeight(Sender: TObject; ChangedSize: Integer);
begin
 //CODE
end;

[Jens Hartmann]

Zitat von Bummi:

Du musst eine Prozedur zuweisen die erreichbar ist

Warum sollte meine Prozedur nicht ereichbar sein.

Delphi-Quellcode:

private
//Ist in der selben Unit, ansonsten könnte ich ja nicht kompilieren...

Wie gesagt, selbst bei zur Entwurszeit auf die Form gelegten Komponenten wird die Prozedur nicht ausgelößt..

Gruß Jens

[Bummi]

dann muss es irgendwo ein Missverständnis geben, das hier funktioniert ....

Delphi-Quellcode:

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

procedure TForm1.JvPanel1Click(Sender: TObject);
begin
   JvPanel1.Height := JvPanel1.Height + 10;
end;

[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 }
.................
................