2 replies to this topic

[monchito_elroro]

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:

php

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.

[escafandra]

Está muy bien tu código.

Si quieres algo más complejo puedes revisar este ejemplo en el que respondía como conseguir una barra de título (Frame) semitransparente para WinXP. El truco se basa en colocar un Form sobre otro semitransparente y que se muevan y cambien de tamaño a la vez.

Aquí también publiqué el truco.

En ejemplo se diseño en y para WinXP, pero la idea de aunar los eventos de posición y tamaño es válida pata Win8.

Saludos.

[monchito_elroro]

Gracias amigo escafadra, eres un maestro