var

newleft, newtop: integer;

begin

if shift = [ssLeft] then

begin

newleft := OknoAbout.Left + (X - myszX);

newtop := OknoAbout.Top + (Y - myszY);

if (newleft >=0) and ( (newleft + OknoAbout.Width) < screen.width) then

OknoAbout.Left := newleft;

if (newtop >=0) and ( (newtop + OknoAbout.Height) < screen.Height) then

OknoAbout.Top := newtop;

end;

end;

newleft, newtop: integer;

begin

if shift = [ssLeft] then

begin

newleft := OknoAbout.Left + (X - myszX);

newtop := OknoAbout.Top + (Y - myszY);

if (newleft >=0) and ( (newleft + OknoAbout.Width) < screen.width) then

OknoAbout.Left := newleft;

if (newtop >=0) and ( (newtop + OknoAbout.Height) < screen.Height) then

OknoAbout.Top := newtop;

end;

end;