Foros Club Delphi - centrar timage en una form

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

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

- - centrar timage en una form (https://www.clubdelphi.com/foros/showthread.php?t=74902)

JXJ	17-07-2011 04:52:51

centrar timage en una form

hola

tengo una duda
como puede centrar un Timage en una form
para que siempre este centrado
aunque la form sea redimensionada
maximizada, restaurada.

he probado esto en el evento onresize

Código Delphi [-] 
procedure TForm1.FormResize(Sender: TObject);
begin
  Image1.Top := Form1.Height - (Image1.Height + 350) ;
  Image1.Left :=Form1.Width - (Image1.Width + 350) ;

end;
 

procedure TForm1.FormResize(Sender: TObject);
begin

  Image1.Top := (Form1.Height  div 2) - (Image1.Height) ;
  Image1.Left :=(Form1.Width div 2) -  (Image1.Width );
end;

ninguno me ayuda a centrar el timage

Lepe	17-07-2011 09:16:43

yo diría que es:

Código Delphi [-]procedure TForm1.FormResize(Sender: TObject);
begin

  Image1.Top := (Form1.Height  div 2) - (Image1.Height div 2) ;
  Image1.Left :=(Form1.Width div 2) -  (Image1.Width div 2);
end;

debe funcionar. ¿Obtienes algun efecto extraño?

JXJ	20-07-2011 02:23:56

Cita:

Empezado por Lepe (Mensaje 406634)

yo diría que es:

Código Delphi [-]
procedure TForm1.FormResize(Sender: TObject);
begin

Image1.Top := (Form1.Height div 2) - (Image1.Height div 2) ;
Image1.Left :=(Form1.Width div 2) - (Image1.Width div 2);
end;

debe funcionar. ¿Obtienes algun efecto extraño?

si con mi codigo se movia el timage a la parte derecha y hacia abajo

pero con tu codigo se mantienen centrado.

muchas gracias.

beginner01

20-07-2011 04:06:05

saludos.

si solo se quiere es mantener el Timage centrado en el form sin cambiar su tamaño
lo que hago es que pongo todas las propiedades anchors en False.

Griselda Diaz

05-10-2017 23:51:30

beginner01 muchas gracias; estuve batallando y me resulto muy practica la opcion que das del anchors.

La franja horaria es GMT +2. Ahora son las 16:01:14.