Fenster an Screen (rechts oder Links) andocken

[kingflo]

Hallo...

Ich habe schon sehr vieles versucht aber nichts hat gut funktioniert.

Und zwar will ich mein Fenster, wenn man es z.B rechts an den Bildschirmrand schiebt so andocken, wie es z.B ICQ oder Trillian auch machen. Leider bekomme ich das einfach nicht richtig hin.

z.B hatte ich folgendes versucht

Delphi-Quellcode:

procedure TForm1.WMMoving(var Message: TWMMoving);
var
  rec: ^TRect;
  wrk: TRect;
begin
  SystemParametersInfo(spi_getworkarea, 0, @wrk, 0);
  rec := Pointer(Message.DragRect);
  if rec^.Left < wrk.Left then
  begin
    form.top:=0;
    form.height:=screen.height;
  end
  else if rec^.Right > wrk.Right then
  begin
    form.top:=0;
    form.height:=screen.height;
  end;

end;

Aber das geht alles nicht so richtig es flakert nur blöd wenn man es dann nach rechts schiebt, hat da zufällig jemand eine gute