移动web用户控件:实现控件的移动、改变大小

实现Control控件移动改变大小(DELPHI实现)

主要使用Perform思路方法
function Perform(Msg: Cardinal; WParam, LParam: Long): Long;

只要能够使用类似于win32APISendMessage本思路方法同样可在其他环境里应用

用Delphi实现
首先建立个应用在个窗体里加入个Panel1保存为.pas；
然后分别在Panel1鼠标移动、鼠标按下事件里添加代码；
鼠标移动:控制光标形状
procedure TForm1.Panel1MouseMove(Sender: TObject; Sht: TShtState; X,
Y: Integer);
begin
(x>=0)and(x<=3) then
begin
(y>=0)and(y<=3) then Panel1.Cursor:=crSizeNWSE;
(y>3)and(y<Panel1.Height-3) then Panel1.Cursor:=crSizeWE;
(y>=Panel1.Height-3)and(y<=Panel1.Height) then Panel1.Cursor:=crSizeNESW;
end
(x>3)and(x<Panel1.Width-3) then
begin
(y>=0)and(y<=3) then Panel1.Cursor:=crSizeNS;
(y>3)and(y<Panel1.Height-3) then Panel1.Cursor:=crArrow;
(y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Cursor:=crSizeNS;
end
(x>=Panel1.Width-3)and(x<=Panel1.Width) then
begin
(y>=0)and(y<=3) then Panel1.Cursor:=crSizeNESW;
(y>3)and(y<Panel1.Height-3) then Panel1.Cursor:=crSizeWE;
(y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Cursor:=crSizeNWSE;
end;
end;

鼠标按下:控制Panel大小或位置
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Sht: TShtState; X, Y: Integer);
begin
ReleaseCapture;
(x>=0)and(x<=3) then
begin
file://左上角方向改变大小
(y>=0)and(y<=3) then Panel1.Perform(WM_SysCommand,$F004,0);
file://左侧
(y>3)and(y<Panel1.Height-3) then Panel1.Perform(WM_SysCommand,$F001,0);
file://左下角
(y>=Panel1.Height-3)and(y<=Panel1.Height) then Panel1.Perform(WM_SysCommand,$F007,0);
end
(x>3)and(x<Panel1.Width-3) then
begin
file://上侧
(y>=0)and(y<=3) then Panel1.Perform(WM_SysCommand,$F003,0);
file://移动Control控件
(y>3)and(y<Panel1.Height-3) then Panel1.Perform(WM_SysCommand,$F012,0);
file://下侧
(y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Perform(WM_SysCommand,$F006,0);
end
(x>=Panel1.Width-3)and(x<=Panel1.Width) then
begin
file://右上角
(y>=0)and(y<=3) then Panel1.Perform(WM_SysCommand,$F005,0);
file://右侧
(y>3)and(y<Panel1.Height-3) then Panel1.Perform(WM_SysCommand,$F002,0);
file://右下角
(y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Perform(WM_SysCommand,$F008,0);
end;
end;
主要使用 Perform 思路方法为

附录1.全部代码如下:

unit ;

erface

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

type
TForm1 = (TForm)
Panel1: TPanel;
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Sht: TShtState; X, Y: Integer);
procedure Panel1MouseMove(Sender: TObject; Sht: TShtState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Sht: TShtState; X, Y: Integer);
begin
ReleaseCapture;
(x>=0)and(x<=3) then
begin
(y>=0)and(y<=3) then Panel1.Perform(WM_SysCommand,$F004,0);
(y>3)and(y<Panel1.Height-3) then Panel1.Perform(WM_SysCommand,$F001,0);
(y>=Panel1.Height-3)and(y<=Panel1.Height) then Panel1.Perform(WM_SysCommand,$F007,0);
end
(x>3)and(x<Panel1.Width-3) then
begin
(y>=0)and(y<=3) then Panel1.Perform(WM_SysCommand,$F003,0);
(y>3)and(y<Panel1.Height-3) then Panel1.Perform(WM_SysCommand,$F012,0);
(y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Perform(WM_SysCommand,$F006,0);
end
(x>=Panel1.Width-3)and(x<=Panel1.Width) then


begin
(y>=0)and(y<=3) then Panel1.Perform(WM_SysCommand,$F005,0);
(y>3)and(y<Panel1.Height-3) then Panel1.Perform(WM_SysCommand,$F002,0);
(y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Perform(WM_SysCommand,$F008,0);
end;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Sht: TShtState; X,
Y: Integer);
begin
(x>=0)and(x<=3) then
begin
(y>=0)and(y<=3) then Panel1.Cursor:=crSizeNWSE;
(y>3)and(y<Panel1.Height-3) then Panel1.Cursor:=crSizeWE;
(y>=Panel1.Height-3)and(y<=Panel1.Height) then Panel1.Cursor:=crSizeNESW;
end
(x>3)and(x<Panel1.Width-3) then
begin
(y>=0)and(y<=3) then Panel1.Cursor:=crSizeNS;
(y>3)and(y<Panel1.Height-3) then Panel1.Cursor:=crArrow;
(y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Cursor:=crSizeNS;
end
(x>=Panel1.Width-3)and(x<=Panel1.Width) then
begin
(y>=0)and(y<=3) then Panel1.Cursor:=crSizeNESW;
(y>3)and(y<Panel1.Height-3) then Panel1.Cursor:=crSizeWE;
(y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Cursor:=crSizeNWSE;
end;
end;

附录2.API SendMessage介绍
SendMessage = user32.lib
LRESULT SendMessage(

HWND hWnd,// handle of destination window
UINT Msg,// message to send
WPARAM wParam,// first message parameter
LPARAM lParam // second message parameter
);



2001.9.27

延伸阅读

• 2008-9-25-- 表单大小:控件大小和位置随着表单地大小成比例改变
• 2008-9-10-- vb控件大小:程序运行过程中动态改变控件大小
• 2008-9-10-- 窗体控件:控件自动随窗体变化大小