Beibehalten von Panelgrößen beim Verschieben durch Splitter

[bitsetter]

Hi,
probiere mal meinen Code ob es jetzt anders ist. Besonders beim wiederherstellen des Fensters hatte ich bei deiner Version Schwierigkeiten, weniger bei minimieren.

Delphi-Quellcode:

  private
    FormBreiteTemp, Panel1BreiteTemp: integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
FormBreiteTemp:= self.Width;
Panel1BreiteTemp:=  Panel1.Width;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
Panel1.Width := Panel1BreiteTemp* self.Width div  FormBreiteTemp;
end;

procedure TForm1.Splitter1Moved(Sender: TObject);
begin
FormBreiteTemp:= self.Width;
Panel1BreiteTemp:=  Panel1.Width;
end;