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;