Cita:
Empezado por FGarcia
ahora me gustaria saber como hacer que si la ventana principal se mueve entonces la ventana secundaria se mueva con ella
|
Hola FGarcia, para hacer que tu ventana secundaría se mueva cuando se mueve la principal puedes capturar el mensaje y preguntar si es SW_MOVE.
Código Delphi
[-]
procedure SYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
................
................
procedure TForm1.SYSCOMMAND(var Msg: TMessage);
begin
Inherited;
if (Msg.WParam and $FFF0)= SC_MOVE then
begin
Form2.Left := Self.Left;
Form2.Top := Self.Top + Self.Height;
end
end;
Ahí mismo puedes preguntar si la secundaría estaría minimizada, si es así lo restauras
Saluditos