Hallo DataCool
ich hab da mal was getestet ,ich mein der code müßte glaub ich noch überarbeitet werden weil die procedur zulangsam ist!
ich weiß auch nicht so genau ob es das ist was du suchst
Delphi-Quellcode:
procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Form2.Top+Form2.Height > Form3.Top-Form3.Height -40 then
begin
Form3.Top := Form2.Top + Form2.Height;
Form3.Left := Form2.Left;
end;
end;