软件在运行期，修改panel的位置与大小

procedureTForm1.Panel1MouseDown(Sender:TObject;Button:TMouseButton;
Shift:TShiftState;X,Y:Integer);
begin
ReleaseCapture;
if(x>=0)and(x<=3)then
begin
if(y>=0)and(y<=3)thenPanel1.Perform(WM_SysCommand,$F004,0);
if(y>3)and(y<Panel1.Height-3)thenPanel1.Perform(WM_SysCommand,$F001,0);
if(y>=Panel1.Height-3)and(y<=Panel1.Height)thenPanel1.Perform(WM_SysCommand,$F007,0);
end
elseif(x>3)and(x<Panel1.Width-3)then
begin
if(y>=0)and(y<=3)thenPanel1.Perform(WM_SysCommand,$F003,0);
if(y>3)and(y<Panel1.Height-3)thenPanel1.Perform(WM_SysCommand,$F012,0);
if(y>=Panel1.Height-3)and(y<=Panel1.Width)thenPanel1.Perform(WM_SysCommand,$F006,0);
end
elseif(x>=Panel1.Width-3)and(x<=Panel1.Width)then
begin
if(y>=0)and(y<=3)thenPanel1.Perform(WM_SysCommand,$F005,0);
if(y>3)and(y<Panel1.Height-3)thenPanel1.Perform(WM_SysCommand,$F002,0);
if(y>=Panel1.Height-3)and(y<=Panel1.Width)thenPanel1.Perform(WM_SysCommand,$F008,0);
end;
end;

procedureTForm1.Panel1MouseMove(Sender:TObject;Shift:TShiftState;X,
Y:Integer);
begin
if(x>=0)and(x<=3)then
begin
if(y>=0)and(y<=3)thenPanel1.Cursor:=crSizeNWSE;
if(y>3)and(y<Panel1.Height-3)thenPanel1.Cursor:=crSizeWE;
if(y>=Panel1.Height-3)and(y<=Panel1.Height)thenPanel1.Cursor:=crSizeNESW;
end
elseif(x>3)and(x<Panel1.Width-3)then
begin
if(y>=0)and(y<=3)thenPanel1.Cursor:=crSizeNS;
if(y>3)and(y<Panel1.Height-3)thenPanel1.Cursor:=crArrow;
if(y>=Panel1.Height-3)and(y<=Panel1.Width)thenPanel1.Cursor:=crSizeNS;
end
elseif(x>=Panel1.Width-3)and(x<=Panel1.Width)then
begin
if(y>=0)and(y<=3)thenPanel1.Cursor:=crSizeNESW;
if(y>3)and(y<Panel1.Height-3)thenPanel1.Cursor:=crSizeWE;
if(y>=Panel1.Height-3)and(y<=Panel1.Width)thenPanel1.Cursor:=crSizeNWSE;
end;
end;