Cambiar tamaño del form

[m8estrella83]

Buenas Tardes !


Busque en los foros pero no he encontrado lo que necesito, quiero que un form tenga del lado derecho un boton(o el componente necesario) que al darle clic el form se agrande, y si vuelve a dar clic regrese al tamaño inicial.

Intente poniendo un boton del lado derecho del form y al darle clic cambia el width del form, si lo hace el form se agranda, pero el top del form cambia aumenta casi el doble y el form va cada vez mas abajo.


Si pudieran ayudarme s los agradeceria mucho.

[ecfisa]

Empezado por m8estrella83

...quiero que un form tenga del lado derecho un boton(o el componente necesario) que al darle clic el form se agrande, y si vuelve a dar clic regrese al tamaño inicial.

Hola m8estrella83.

Una opción:

Código Delphi [-]
...
implementation  

const
   INCRE = 100;

var
  OldCorn: TRect;
  FirstSz: Boolean = True;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldCorn.Left   :=  Left;
  OldCorn.Top    :=  Top;
  OldCorn.Right  :=  Left + Width;
  OldCorn.Bottom :=  Top + Height;
  Button1.Anchors := [akRight,akBottom];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if FirstSz then
  begin
    Left   := Left - INCRE;
    Top    := Top - INCRE;
    Width  := Width + INCRE;
    Height := Height + INCRE;
  end
  else
  begin
    Left   := OldCorn.Left;
    Top    := OldCorn.Top;
    Width  := OldCorn.Right - Left;
    Height := OldCorn.Bottom - Top;
  end;
  FirstSz := not FirstSz;
end;
...

Saludos.

[m8estrella83]

Gracias ecfisa !!!


Problema resuelto.


Saludos