Foros Club Delphi - Cuando pongo un formulario en maximizado se desforman los botones con delphi 7

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Cuando pongo un formulario en maximizado se desforman los botones con delphi 7 (https://www.clubdelphi.com/foros/showthread.php?t=80346)

jeremiselxi

20-09-2012 03:36:40

Cuando pongo un formulario en maximizado se desforman los botones con delphi 7

1 Archivos Adjunto(s)

Buenas noches delphianos:D

Tengo un problema con delphi 7.

La idea es que hay dos form.

El primero pienso poner un progressbar y cuando llegue a 100 entonces desapesca este form, y aparesca el form2 que aparesca maximizado.

Que pasa que al momento de ejecutarlo, yo quiero que la imagen y el panel con los botones cuando se maximize que se ponga todo en el centro.

Que codigo puedo usar, o que debo hacer para que seque en el centro.

Dejo adjunto lo que hice en delphi

ecfisa

20-09-2012 04:24:23

Cita:

Yo quiero que la imagen y el panel con los botones cuando se maximize que se ponga todo en el centro.

Código Delphi [-]procedure TForm2.FormCreate(Sender: TObject);
begin
   pnlBase.Left := (Width - pnlBase.Width) div 2;
   pnlBase.Top  := (Height - pnlBase.Height) div 2;
end;

Te adjunto las modificaciones echas a tu código para que puedas revisarlas en funcionamiento, también agregué código de centrado al redimensionar o restaurar a Form2.

Saludos. :)

jeremiselxi

20-09-2012 05:12:48

Esto era lo que estaba buscando.

Cita:

Empezado por ecfisa (Mensaje 443696)

Hola jeremiselxi.

La forma mas simple de hacer eso es agregar otro TPanel (ej. pnlBase) en TForm2, seleccionar Image1 y Panel1, cortar y pegar dentro de pnlBase.
Luego poner las propiedades: Panel1.Align = alBottom y Image1.Align = alClient y dimensionas pnlBase del tamaño que desees.

Agrega este código de centrado de pnlBase al evento OnCreate de Form2:
Código Delphi [-]procedure TForm2.FormCreate(Sender: TObject); begin pnlBase.Left := (Width - pnlBase.Width) div 2; pnlBase.Top := (Height - pnlBase.Height) div 2; end;

Te adjunto las modificaciones echas a tu código para que puedas revisarlas en funcionamiento, también agregué código de centrado al redimensionar o restaurar a Form2.

Saludos. :)

Excelente:D. Muchas Gracias y no te imaginas lo que mas ayudado.:D
Dios te bendiga mucho:)^\||/

La franja horaria es GMT +2. Ahora son las 03:31:13.