procedure TForm1.WMEnterSizeMove(var Message:TWMMove); begin Self.disableAlign; end; procedure TForm1.WMExitSizeMove(var Message:TWMMove); begin Self.EnableAlign; end;