缩放 移动控件

 

//缩放 移动控件
//任意摆布一个控件   (   拖动、放大、缩小   ) (2008-07-24 23:42:11) [编辑][删除]
//标签：杂谈   分类：编程

//  第一步,  先写出下面的函数
//==============================================================================
procedure   ManipulateControl(Control:   TControl;   Shift:   TShiftState;   X,   Y,   Precision:   integer);
var
    SC_MANIPULATE:   Word;
begin
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    //   光标在控件的最左侧   **********************************************************
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    if   (X<=Precision)   and   (Y>Precision)   and   (Y<Control.Height-Precision)
    then   begin
                  SC_MANIPULATE     :=   $F001;
                  Control.Cursor   :=   crSizeWE;
    end
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    //   光标在控件的最右侧   **********************************************************
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    else   if   (X>=Control.Width-Precision)   and   (Y>Precision)   and   (Y<Control.Height-Precision)
    then   begin
                  SC_MANIPULATE     :=   $F002;
                  Control.Cursor   :=   crSizeWE;
    end
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    //   光标在控件的最上侧   **********************************************************
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    else   if   (X>Precision)   and   (X<Control.Width-Precision)   and   (Y<=Precision)
    then   begin
                  SC_MANIPULATE     :=   $F003;
                  Control.Cursor   :=   crSizeNS;
    end
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    //   光标在控件的左上角   **********************************************************
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    else   if   (X<=Precision)   and   (Y<=Precision)
    then   begin
                  SC_MANIPULATE     :=   $F004;
                  Control.Cursor   :=   crSizeNWSE;
    end
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    //   光标在控件的右上角   **********************************************************
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    else   if   (X>=Control.Width-Precision)   and   (Y<=Precision)
    then   begin
                  SC_MANIPULATE     :=   $F005;
                  Control.Cursor   :=   crSizeNESW         ;
    end
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    //   光标在控件的最下侧   **********************************************************
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    else   if   (X>Precision)   and   (X<Control.Width-Precision)   and   (Y>=Control.Height-Precision)
    then   begin
                  SC_MANIPULATE     :=   $F006;
                  Control.Cursor   :=   crSizeNS;
    end
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    //   光标在控件的左下角   **********************************************************
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    else   if   (X<=Precision)   and   (Y>=Control.Height-Precision)
    then   begin
                  SC_MANIPULATE     :=   $F007;
                  Control.Cursor   :=   crSizeNESW;
    end
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    //   光标在控件的右下角   **********************************************************
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    else   if   (X>=Control.Width-Precision)   and   (Y>=Control.Height-Precision)
    then   begin
                  SC_MANIPULATE     :=   $F008;
                  Control.Cursor   :=   crSizeNWSE;
    end
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    //   光标在控件的客户区   (   移动整个控件   )******************************************
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    else   if   (X>5)   and   (Y>5)   and   (X<Control.Width-5)   and   (Y<Control.Height-5)
    then   begin
                  SC_MANIPULATE     :=   $F009;
                  Control.Cursor   :=   crSizeAll;
    end
    else   begin
                  SC_MANIPULATE   :=   $F000;
                  Control.Cursor   :=   crDefault;
    end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    if   Shift=[ssLeft]   then
    begin
        ReleaseCapture;
        Control.Perform(WM_SYSCOMMAND,   SC_MANIPULATE,   0);
    end;
end;

//第二步，在mouseMove事件中调用上述函数
procedure TFormBing_Li.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin                //    (Sender   as   TControl).Parent
  ManipulateControl( self.Panel_Image,Shift, X, Y, 10);//10为精度
end;