unit Unit1; 

interface 

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

type 
    TForm1 = class(TForm) 
    Button1: TButton; 
    Label1: TLabel; 
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject); 
  private 
    procedure ManipulateControl(Control: TControl; Shift: TShiftState; X, Y, Precision: integer); 
  { Private declarations } 
  public 
  { Public declarations } 
end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure Tform1.ManipulateControl(Control: TControl; Shift: TShiftState; X, Y, Precision: 
integer); 
var 
  SC_MANIPULATE: 
  Word; 
begin 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//光标在控件的最左侧********************************************************** 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  if (X<=Precision) and (Y>Precision) 
     and (Y=Control.Width-Precision) and (Y>Precision) 
     and (YPrecision) and (X=Control.Width-Precision) and (Y<=Precision) then 
  begin 
    SC_MANIPULATE := $F005; 
    Control.Cursor := crSizeNESW ; 
  end 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
//光标在控件的最下侧********************************************************** 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  else if (X>Precision) and (X=Control.Height-Precision) then 
  begin 
    SC_MANIPULATE := $F006; 
    Control.Cursor := crSizeNS; 
  end 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
//光标在控件的左下角********************************************************** 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  else if (X<=Precision) and (Y>=Control.Height-Precision) then 
  begin 
    SC_MANIPULATE := $F007; 
    Control.Cursor := crSizeNESW; 
  end 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
//光标在控件的右下角********************************************************** 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  else if (X>=Control.Width-Precision) and (Y>=Control.Height-Precision) then 
  begin 
    SC_MANIPULATE := $F008; 
    Control.Cursor := crSizeNWSE; 
  end 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
//光标在控件的客户区（移动整个控件）****************************************** 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  else 
  //if (X>5) and (Y>5) and (X<Control.Width-5) and (Y<Control.Height-5) then 
  begin 
    SC_MANIPULATE := $F009; 
    Control.Cursor := crDefault;
    //SizeAll;
{ end 
  else 
  begin 
    SC_MANIPULATE := $F000; 
    Control.Cursor := crSizeAll;
  //Default; } 
  end; 
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
if Shift=[ssLeft] then 
begin 
  ReleaseCapture; 
  Control.Perform(WM_SYSCOMMAND, SC_MANIPULATE, 0);
 end;
end; 

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); 
begin 
  label1.Caption := IntToStr(X) + '/' + IntToStr(Y); 
  ManipulateControl((Sender as Tform), Shift, X, Y, 10); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  close; 
end; 
end. 
 

（出处：Delphi园地）