Прилипание.

[Черничный]

Как можно смастерить, что б окно прилипало к другим окнам или краю раб. стола?

[Stilet]

типа такого.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure q(var m:TWMMove); message wm_MOVE;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.q(var m: TWMMove);
begin
if m.XPos<50 then Left:=0;
end;

end.

[Патрон]

а еще у формы есть такое свойсиво "ScreenSnap" ставь его в true, и SnapBuffer например в 15 (это сила притяжения).

[Черничный]

вообщем то ScreenSnap мне и подходит.