任意的拖动窗口

任意的拖动窗口


procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;


Shift: TShiftState; X, Y: Integer);


begin


ReleaseCapture;


Perform(WM_SYSCOMMAND,$f012,0);


end;


实际上，可以封装一下上面的代码，这样以后只要在控件的MouseMown中调用下面的函数就可以实现运行的时候拖动和改变控件的大小：


procedure DragControl(WinControl:TWinControl);


const


SM=$F012;


begin


ReleaseCapture;


WinControl.Perform(WM_SYSCOMMAND,SM,0);


end;


其中，$F012可以从$F000变换到$F012，其含义分别如下：


$F000：哎，自己测试吧！


*********************************


＜＜Ｄｅｌｐｈｉ　淡手辑略之控件篇＞＞闪亮登场，掌声．．．．．


//==============================================================================


//任意摆布一个控件（拖动、放大、缩小）******************************************


//==============================================================================


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;


　


　


ｅｘａｍｐｌｅ：


//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


procedure TForm_Main.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


begin


Caption := IntToStr(X) + ‘/‘ + IntToStr(Y);


ManipulateControl((Sender as TControl), Shift, X, Y, 10);


end; 阅读全文
类别： 编程相关-  查看评论

转载于:https://www.cnblogs.com/RoyGo/archive/2009/08/26/1906996.html