Mover dos Form
 

Hola:

Alguien conoce un truco o sabe implementar la manera de mover dos Form al mismo tiempo.
Me explico, al mover el Form 1 automáticamente se mueva de forma sincronizada el form 2

:D

Atte Aarón García A.

Usa el mensaje WM_WINDOWPOSCHANGING:

Código Delphi [-]
type
  TForm1 = class(TForm)
  private
    procedure WMWindowPosChanging(var Msg: TWMWindowPosChanging);
      message WM_WINDOWPOSCHANGING;
  end;

implementation

procedure TForm1.WMWindowPosChanging(var Msg: TWMWindowPosChanging);
begin
  inherited;

  {
    Aquí ajustas la posición de Form2
  }
end;

// Saludos

Hola roman:

Lo he implementado de otra forma:

Código Delphi [-]
  
procedure TFrmPowerM.WMMenuSelect(var Message: TWMMove);
begin
   With FrmArchivos do
   begin
     if (FrmArchivos = nil) or (not Visible) then Exit;
     PosicionForm(Self.Left + Self.Width, Self.Top);
   end;
end;

Pero éste procedure lo quiero implementar solo cuando el 2 Form esté junto al 1 Form, y quiero saber si tú sabes como comprobar si los dos form están juntos, en caso de no estar junto no debe ejecutar ésto

Código Delphi [-]
PosicionForm(Self.Left + Self.Width, Self.Top);

Gracias.

Saludos.
Aarón