• 在运行时改变控件的大小


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

    // 由于拐角这点手动精确实在困难 所以用范围 范围+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;
  • 相关阅读:
    hutool 导出excel 何苦
    PHP header 的7种用法 何苦
    JavaVolatile
    JVMjava内存区域
    JAVA内存泄露与溢出
    同步与互斥
    java线程池
    Java Synchronized
    docker 命令和使用
    leetcode(c++)(博弈类dp)
  • 原文地址:https://www.cnblogs.com/xe2011/p/3426494.html
Copyright © 2020-2023  润新知