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

来源：互联网发布：谷歌看图软件下载编辑：程序博客网时间：2024/06/06 18:26

procedure TForm1.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) then Panel1.Perform(WM_SysCommand,$F004,0);    if (y>3)and(y<Panel1.Height-3) then Panel1.Perform(WM_SysCommand,$F001,0);    if (y>=Panel1.Height-3)and(y<=Panel1.Height) then Panel1.Perform(WM_SysCommand,$F007,0);  end  else if (x>3)and(x<Panel1.Width-3) then  begin    if (y>=0)and(y<=3) then Panel1.Perform(WM_SysCommand,$F003,0);    if (y>3)and(y<Panel1.Height-3) then Panel1.Perform(WM_SysCommand,$F012,0);    if (y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Perform(WM_SysCommand,$F006,0);  end  else if (x>=Panel1.Width-3)and(x<=Panel1.Width) then  begin    if (y>=0)and(y<=3) then Panel1.Perform(WM_SysCommand,$F005,0);    if (y>3)and(y<Panel1.Height-3) then Panel1.Perform(WM_SysCommand,$F002,0);    if (y>=Panel1.Height-3)and(y<=Panel1.Width) then Panel1.Perform(WM_SysCommand,$F008,0);  end;end;

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

0 0