uchild.pas

模仿QQ的靠边停靠源码

unit UChild;

interface

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

{
  Typical Docking window, important properties to be set are:

  UseDockManager = True    // to engage Gavina DockManager
  DockSite = True          // to engage Gavina DockManager
  DragKind = dkDock        // to enable docking
  DragMode = dmAutomatic   // to enable automatic docking
  FormStyle = fsStayOnTop  // to be on top
  OnGetSiteInfo = DockGetSiteInfo  // to simulate side MS-docking style
}

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure DockGetSiteInfo(Sender: TObject; DockClient: TControl;
      var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UMain, GSDock;

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
var
  C, I: Cardinal;
begin
  C := GetTickCount and $7;
  for I := 0 to C do Randomize;
  Panel1.Color := Random($FFFFFF);
end;

procedure TForm2.DockGetSiteInfo(Sender: TObject; DockClient: TControl;
  var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);
begin
  // To avoid docking in non-MS zones
  GSGetSiteInfo(Sender, MousePos, CanDock);
end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
  Caption := Edit1.Text;
end;

end.