Currently I do this in the base form:
procedure TBaseForm.Resize;
var
newParent: TWinControl;
site: TAnchorDockHostSite;
begin
inherited;
site := DockMaster.GetAnchorSite(self);
if site.isNil then
exit;
newParent := site.Parent;
if fOldParent <> newParent then
begin
// docking changed...
end;
end;
While it works, this looks a bit like a workaround:
"What does happen when something is docked ? It will certainly be resized so let's override resize()".Can you propose better ?