怎么使自己程序的窗体跟随其他程序的窗体移动？(100分)

如题。

你可以HOOK WM_MOVE消息，来跟着其它程序移动。

使窗体与最前面的窗体位置相对位置不变，具体位置可根据R值范围调整
Form1.Style设置为fsStayOnTop

procedure TForm1.Timer1Timer(Sender: TObject);
var
H: THandle;
R: TRect;
begin
h := GetForegroundWindow;
if h <> Self.Handle then
begin
if GetWindowRect(H, R) then
begin
Self.Left := R.Left;
Self.Top := R.Top;
end;
end;
end;