TSplitControl 的实现（一）

type
  TSplitControl = class
  private
    FForm: TForm; //父窗口
    FSplitControl, FSizeTarget: TControl; //分割控件及目标控件
    FVertical: Boolean; //判断是否垂直或水平分割
    FSplit: TPoint;     //分割的点
    function GetSizing: Boolean;  
    procedure DrawSizingLine; //画线
  public
    constructor Create(AForm: TForm);
    procedure BeginSizing(ASplitControl, ATargetControl: TControl); //开始分割
    procedure ChangeSizing(X, Y: Integer);  
    procedure EndSizing;
    property Sizing: Boolean read GetSizing;
  end;
本例主要是调整目标控件的位置来实现分割