Splitter verschieben

[Nalincah]

Wieso lässt sich der Splitter nicht so verschieben?

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
  Splitter1.Top := Form1.Height div 2;
end;