delphi 仿照世界之窗浏览器，滑动鼠标关闭主程序

unit umousemove;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics,
    Controls, Forms, Dialogs, ExtCtrls, Math, StdCtrls,
    dxGDIPlusClasses;

type
    Tfrommousemove = class(TForm)
        Image1: TImage;
        Image2: TImage;
        procedure FormCreate(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure FormShow(Sender: TObject);
        procedure Image2MouseDown(Sender: TObject; Button:
            TMouseButton; Shift: TShiftState; X, Y: Integer);
        procedure Image2MouseMove(Sender: TObject; Shift: TShiftState;
            X, Y: Integer);
        procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;
            Shift: TShiftState; X, Y: Integer);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

type
    Rvaluepos = record
        x, y: double;
        a, b, c, c_Cos, maxposx: double;
        tan