Ver Mensaje Individual
  #3  
Antiguo 20-09-2012
Avatar de jeremiselxi
jeremiselxi jeremiselxi is offline
Miembro
 
Registrado: ago 2008
Posts: 199
Reputación: 18
jeremiselxi Va por buen camino
Post Esto era lo que estaba buscando.

Cita:
Empezado por ecfisa Ver Mensaje
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. Muchas Gracias y no te imaginas lo que mas ayudado.
Dios te bendiga mucho
__________________
Cristo te ama, ven a d él, ya k te espera con los brazos abiertos. Dios te bendiga mucho
Responder Con Cita