我的代码是要有1/3在屏幕上的，你要不能出去，修改一下就可以了
procedure WMMOVING(var Msg: TMessage);
message WM_MOVING;
procedure TfrmBaseLocalizeNoAlphaBlend.
WMMOVING(var Msg: TMessage);
begin
inherited;
if Application.Terminated then
Exit;
with PRect(Msg.LParam)^do
begin
Left := Min(Max(0 - 2 * Width div 3, Left), Screen.Width - Width div 3);
Top := Min(Max(0, Top), Screen.Height - Height div 3);
Right := Min(Max(Width div 3, Right), Screen.Width + 2 * Width div 3);
Bottom := Min(Max(Height, Bottom), Screen.Height + 2 * Height div 3);
end;
end;
