Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-04-2005
Avatar de lucasarts_18
lucasarts_18 lucasarts_18 is offline
Miembro
 
Registrado: mar 2005
Ubicación: Villa Alemana,Chile
Posts: 1.087
Poder: 21
lucasarts_18 Va por buen camino
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



Atte Aarón García A.
Responder Con Cita
  #2  
Antiguo 23-04-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita
  #3  
Antiguo 24-04-2005
Avatar de lucasarts_18
lucasarts_18 lucasarts_18 is offline
Miembro
 
Registrado: mar 2005
Ubicación: Villa Alemana,Chile
Posts: 1.087
Poder: 21
lucasarts_18 Va por buen camino
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
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 17:37:07.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi