Delphi中的窗体移动_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi中的窗体移动

作者：闵涛文章来源：闵涛的学习笔记点击数：2431 更新时间：2009/4/23 18:25:34

sp;        if CanMoveY then
            Form2.Top := Form2.Top + (Y - OldY);
            //This section latches to the top
            if (Form2.Top < WorkArea.Top + 10) and (Form2.Top > WorkArea.Top-10)
            then

            begin
            Form2.Top := WorkArea.Top;
            if (Y-OldY > 10) or (Y-OldY < -10) then
            CanMoveY := true
            else
            CanMoveY := False;
            end;
            //This section latches to the left side
            if (Form2.Left < WorkArea.Left+10) and (Form2.Left >
            WorkArea.Left-10) then
            begin
            Form2.Left := WorkArea.Left;
            if (X-OldX > 10) or (X-OldX < -10) then
            CanMoveX := true
            else
            CanMoveX := False;
            end;
            //This section latches to the right side
            if (Form2.Left > WorkArea.Right-Form2.Width-10) and (Form2.Left <
            WorkArea.Right-Form2.Width+10) then
            begin
            Form2.Left := WorkArea.Right-Form2.Width;
            if (X-OldX > 10) or (X-OldX < -10) then
            CanMoveX := true
            else
            CanMoveX := False;
            end;
            //This section latches to the TaskBar
            if (Form2.Top > WorkArea.Bottom-Form2.Height-10) and (Form2.Top <
            WorkArea.Bottom-Form2.Height+10) then
            begin
            Form2.Top := WorkArea.Bottom-Form2.Height;
            if (Y-OldY > 10) or (Y-OldY < -10) then
            CanMoveY := true
            else
            CanMoveY := False;
            exit;
            end;

            //This section latches to the Player Bottom
            if (Form2.Top > Form1.Top+Form1.Height-10) and (Form2.Top <
            Form1.Top+Form1.Height+10) and (Form2.Left > Form1.Left-Form2.Width)
            and (Form2.Left < Form1.Left + Form1.Width) then
            begin
            Form2.Top := Form1.Top+Form1.Height;
            if (Y-OldY > 10) or (Y-OldY < -10) then begin
            CanMoveY := true;
            Form1.DockToForm := False;
            end
            else begin
            CanMoveY := False;
            Form1.DockToForm := True;
            end;
            end;
            //This section latches playlist in center of Form1
            if (Form2.Left > Form1.Left + ((Form1.Width div 2)-(Form2.Width div
            2))-10) and (Form2.Left < Form1.Left + ((Form1.Width div
            2)-(Form2.Width div 2))+10) and
            (Form2.Top > Form1.Top+Form1.Height-10) and (Form2.Top <
            Form1.Top+Form1.Height+10) then
            begin
            Form2.Left := Form1.Left + ((Form1.Width div 2)-(Form2.Width div 2));
            if (X-OldX > 10) or (X-OldX < -10) or (Y-OldY > 10) or (Y-OldY <
            -10) then
            CanMoveX := true
            else
            CanMoveX := False;
            end;
            end;
            end;
            procedure TForm2.FormMouseUp(Sender: TObject; Button:
            TMouseButton;Shift: TShiftState; X, Y: Integer);
            begin
            CanMove := false;
            end;
            end.