1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:

  private
    procedure WMWINDOWPOSCHANGING (Var Msg: TWMWINDOWPOSCHANGING); message WM_WINDOWPOSCHANGING;

var
  Docked: Boolean = false;

function GetDesktopRect: TRect;
var
  hdc : Thandle;
begin
  hdc := FindWindow('ProgMan', nil);
  if hdc <> 0 then
    GetWindowRect(hdc, result);
end;

function GetTaskbarRect: TRect;
var
  hdc : Thandle;
begin
  hdc := FindWindow('Shell_TrayWnd', nil);
  if hdc <> 0 then
    GetWindowRect(hdc, result);
end;

procedure TMainForm.WMWINDOWPOSCHANGING(var Msg: TWMWINDOWPOSCHANGING);
var
  rWorkArea, Taskbar: TRect;
  StickAt : Word;
begin
  StickAt := 20;  //bei 20 pixeln wird angedockt
  rWorkArea := GetDesktopRect;
  Taskbar := GetTaskbarRect;
  with Msg.WindowPos^ do
    begin
      if x <= StickAt then
        begin
          x := rWorkArea.Left;
          Docked := true;
        end;
      if x + cx >= rWorkArea.Right - StickAt then
        begin
          x := rWorkArea.Right - cx;
          Docked := true;
        end;
      if y <= rWorkArea.Top + StickAt then
        begin
          y := rWorkArea.Top;
          Docked := true;
        end;
      if x > Taskbar.Right then
        if y + cy >= rWorkArea.Bottom - StickAt then
          begin
            y := rWorkArea.Bottom - cy;
            Docked := true;
          end;
      if x < Taskbar.Right then
        if y + cy >= rWorkArea.Bottom - (Taskbar.Bottom - Taskbar.Top) - StickAt then
          begin
            y := rWorkArea.Bottom - (Taskbar.Bottom - Taskbar.Top) - cy;
            Docked := true;
          end;
      if Docked then
        begin
          with rWorkArea do
            begin
              if x < Left then
                x := Left;
              if x + cx > Right then
                x := Right - cx;
              if y < Top then
                y := Top;
              if y + cy > Bottom then
                y := Bottom - cy;
            end;
        end;
    end;
  inherited;
end;