con este codigo yo puedo mover cualquier componente en tiempo de
ejecucion:

procedure Tmando.TextListBox2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
SendMessage(TWinControl(Sender).Handle,WM_SysCommand, SC_DragMove,
0);
end;

mi pregunta es como puedo mover en el segundo form (form2) un
componente cualquiera ejemplo (un Tbutton)desde el primer form (form1)
con un componente igual y en tiempo de ejecucion?.
los dos forms tendrian el mismo tamaño y al mover el componente A del
primer form, mueva al componente B del segundo form?



[Non-text portions of this message have been removed]