在运行时改变控件的大小

 

 

//光标在控件不同位置时的样式

// 由于拐角这点手动精确实在困难 所以用范围 范围+3 这样很容易就找到这一点了

procedure CtrlMouseMove(Ctrl: TWinControl; Shift: TShiftState;X, Y: Integer);
begin
   with Ctrl do
   begin
      if (X >= 0) and (X <= 3) then
      begin
        if (Y >= 0) and (Y <= 3)                then  Cursor := crSizeNWSE;
        if (Y > 3) and (Y < Height - 3)         then  Cursor := cRsizewe;
        if (Y >= Height - 3) and (Y <= Height)  then  Cursor := crSizeNESW;
      end
      else if (X > 3) and (X < Width - 3) then
      begin
        if (Y >= 0) and (Y <= 3)                then  Cursor := crSizeNS;
        if (Y > 3) and (Y < Height - 3)         then  Cursor := cRarrow;
        if (Y >= Height - 3) and (Y <= Width)   then  Cursor := crSizeNS;
      end
      else if (X >= Width - 3) and (X <= Width) then
      begin
        if (Y >= 0) and (Y <= 3)                then  Cursor := crSizeNESW;
        if (Y > 3) and (Y < Height - 3)         then  Cursor := cRsizewe;
        if (Y >= Height - 3) and (Y <= Width)   then  Cursor := crSizeNWSE;
      end;
   end;
end;

 

//改变控件的大小

procedure CtrlMouseDown(Ctrl: TWinControl; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
var
  WParam: Integer;
begin
  with Ctrl do
  begin
    if (X >= 0) and (X <= 3) then
    begin
      if (Y >= 0) and (Y <= 3)                 then  WParam:=$F004;
      if (Y > 3)  and (Y < Height - 3)         then  WParam:=$F001;
      if (Y >= Height - 3) and (Y <= Height)   then  WParam:=$F007;
    end
    else if (X > 3) and (X < Width - 3) then
    begin
      if (Y >= 0) and (Y <= 3)                 then  WParam:=$F003;
      if (Y > 3) and (Y < Height - 3)          then  WParam:=$F012;
      if (Y >= Height - 3) and (Y <= Width)    then  WParam:=$F006;
    end
    else if (X >= Width - 3) and (X <= Width)  then
    begin
      if (Y >= 0) and (Y <= 3)                 then  WParam:=$F005;
      if (Y > 3) and (Y < Height - 3)          then  WParam:=$F002;
      if (Y >= Height - 3) and (Y <= Width)    then  WParam:=$F008;
    end;
    ReleaseCapture;
    SendMessage(Handle,WM_SYSCOMMAND,WParam,0);
  end;
end;

 

使用

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  CtrlMouseDown(Panel1, Button, Shift, X, Y);
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  CtrlMouseMove(Panel1, Shift, X, Y);
end;

 

转载于:https://www.cnblogs.com/xe2011/p/3426494.html