![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
![]() Hola, tengo un form principal de un tamaño determinado, y otro form que cuando se activa se pone justo debajo de este. El problema es que si muevo el form principal el otro se queda en su sitio, y lo que quiero es que se mueva para la misma direccion.
¿Como puedo hacer esto? ¿Y para que minimice los dos a la vez? Muchas gracias.
__________________
Si me ves durmiendo no me despiertes, podría estar soñando que soy libre. |
#2
|
||||
|
||||
Para la parte de mover los formularios:
Código:
interface type TForm1 = class(TForm) private procedure WMMove(var Message: TWMMove); message WM_MOVE; end; implementation procedure TForm1.WMMove(var Message: TWMMove); begin inherited; if Assigned(Form2) then begin Form2.Left := Left; Form2.Top := Top + Height; end; end; end. |
#3
|
||||
|
||||
echa un vistazo a la unidad Windows.pas que trae delphi, mira los mensajes igual que el WM_MOVE que dice roman hay muchos mas, he mirado un poco y el que mas me suena es este:
SIZE_MINIMIZED Suerte! |
![]() |
|
|
![]() |
|