Form Größe zur Laufzeit ändern klappt nicht richtig

[TurboMagic]

Gegeben Delphi 10.3.2 und eine VCL FOrm mit diesen eigenschaften:

- 1 TPanel top aligned
- 1 TPanel client aligned
- 1 TPanel bottom aligned

Je nach dem welche Daten vorliegen möchte ich das Top oder das Client Panel verbergen
und die Form um deren Größe verkleinern bzw. beim Top Panel auch ggf. die Höhe
an die Menge des darzustellenden Texts anpassen. Im Form designer ist dieses Panel auf
die maximale Länge zu erwartenden Texts ausgelegt.

Im OnCreate der Form prüfe ich, ob das client aligned Panel versteckt werden muss und
falls ja rufe ich das hier auf:

SetBounds(Left, Top, Width, Height - ClientPanel.Height);

Rechnerisch scheint das in Ordnung zu sein, beim Ausführen ist die Form in der Höhe
aber so winzig, dass noch nicht mal die Titelleiste ganz dargestellt wird.

Bei der dynamischen Änderung des Top-Panels genau dasselbe, daher vermutlich der
selbe Fehler.

Woran liegt das?

[Neutral General]

Hast du mal geschaut welche Werte Height/ClientPanel.Height haben beim setzen der Bounds?

[TurboMagic]

Hallo,

ja, mit dem Debugger und das sah vernünftig aus.

[hoika]

Hallo,
müsste Du nicht ClientHeight statt Height nehmen?

[TurboMagic]

Hallo,

ich glaube nicht, dass das einen Unterschied bewirken würde ob ich
nun ClientHeight oder Height nehme.

Evtl. muss ich das mal morgen mit einem einfachen Testprogramm ausprobieren...

Grüße
TurboMagic

[Neutral General]

Ich hab es eben ausprobiert und es klappt ohne Probleme:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    plClient: TPanel;
    Panel3: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetBounds(Left, Top, Width, Height - plClient.Height);
end;

end.

Design:



Laufzeit: