TSplitter - AutoSnap nach beiden Seiten

[Björn Ole]

Danke für deinen Vorschlag!


Ich hatte gestern zu eingeschränkt gedacht, in meinem Fall bietet das Event CanResize des linken Panels die perfekte Lösung.

Delphi-Quellcode:

const
  MAX = 500; // maximal Breite des linken Panels
  SNAP = 50; // Abstand, der über"snapt" werden soll

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  PanelLeft.Constraints.MaxWidth := MAX
end;

procedure TFrmMain.PanelLeftCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  if NewWidth > MAX - SNAP then
    NewWidth := MAX;
end;