[FMX] Splitter in einem bestimmten Bereich verschieben

[Volker Z.]

Hallo,

ich würde eher auf etwas in dieser Richtung setzen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  // kannst Du natürlich auch im Objectinspector setzen
  Splitter1.MinSize := 300;
  Panel2.Width      := Splitter1.MinSize
end;

procedure TForm1.FormResize(Sender: TObject);
var
  w : Integer;
begin
  w := Round (ClientWidth / 2);
  if w <= Splitter1.MinSize then
    Panel2.Width := Splitter1.MinSize
  else
    Panel2.Width := w
end;

procedure TForm1.Panel2Resize(Sender: TObject);
var
  w : Integer;
begin
   w := Round (ClientWidth / 2);
   if Panel2.Width > w then
     Panel2.Width := Splitter1.MinSize + w - Splitter1.MinSize
end;

procedure TForm1.FormCreate(Sender: TObject);

Denn das funktioniert auch noch nach einer Größenänderung des Fensters.

Gruß