Buenas amigos quisiera compartirles un código que me tuvo como loco, resulta que quería hacer lo siguiente:
1. Tengo dos form (form1 y form2)
2. Al mover el form1 automaticamente se mueva el form2 pegadito al form1 (como el programa Imgburn y su log ó como Winamp)
de momento lo he logrado con la ayuda de un código de Escafandra e investigando.
aunque me gustaría que si tienen otros códigos que puedan compartir para esta situación son bienvenidos
Este es el código que uso y les mando un screenshot:
uses windows, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit2; .... implementation {$R *.lfm} { TForm1 } procedure TForm1.FormChangeBounds(Sender: TObject); var WR: TRect; Ancho: integer; Alto: integer; begin Windows.GetWindowRect(Handle, WR); form2.Show; Form2.Left := Left; // el form2 obtiene la posicion derecha del form1 Form2.Top := self.Top + WR.Bottom - WR.Top; // el form2 esta abajito del form1 form2.Width:= Width; // el form2 obtiene la anchura del form1 end; procedure TForm1.FormCreate(Sender: TObject); begin end; end.
De momento me trabaja bien.
El código se Escafandra lo encontre aquí:
http://www.clubdelph...ead.php?t=66101
Me gustaría saber sus opiniones y consejos.