var
Hrect:HWND;
Rect:TRect;
Hrect:=FindWindow(nil,'另一个窗体标题');
GetWindowRect(Hrect,Rect);
Form1.Left:=Rect.Left;
Form1.Top:=Rect.Top+(Rect.bottom-Rect.Top);//实现吸附另一个窗体 = 计算另一个窗会坐标设置为本窗体坐标 + 另一个窗体的高度
//窗体的左,上就是窗体的左上角坐标;
//ShowMessage(IntToStr(Rect.bottom-Rect.Top));
//矩形底-矩形上=矩形高;
//矩形右-矩形左=矩形宽;
//追加一个时间控件就可以实时吸咐了;