Fenster an Screen (rechts oder Links) andocken

[kingflo]

Also so geht es zwar

Delphi-Quellcode:

procedure TLoginForm.WMExitSizeMove(var Msg: TMessage);
begin
 if LoginForm.Left + LoginForm.Width >= screen.Width then begin
    LoginForm.Top:=0;
    oldFormHeight:=LoginForm.Height;
    LoginForm.Height:=screen.Height;
    LoginForm.Left:=screen.Width - LoginForm.Width;
    isDocked:=true;
 end
 else begin
    if isDocked then begin
      LoginForm.Height:=oldFormHeight;
      isDocked:=false;
    end;
 end;
end;

aber nur im WMExitSizeMove aber ich möchte es so haben wie ICQ also direkt im WMMoving.