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]

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

...
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 :)