Cambiar tamaño del form

[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.