try this event
property OnConstrainedResize: TConstrainedResizeEvent;
type TConstrainedResizeEvent = procedure(Sender: TObject; var MinWidth, MinHeight, MaxWidth, MaxHeight: Integer) of object;
Beschreibung
Sender ist das Objekt, dessen Größe verändert wird.
MinWidth liefert die minimale Breite, bis zu der das Objekt verkleinert werden kann.
MinHeight liefert die minimale Höhe, bis zu der das Objekt verkleinert werden kann.
MaxWidth liefert die maximale Breite, bis zu der das Objekt vergrößert werden kann.
MaxHeight liefert die maximale Höhe, bis zu der das Objekt vergrößert werden kann.
_________________
mfg
Tana´Ri