![]() |
![]() |
| Paypal | 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! |
![]() |
|
|
|