F�rum Centralizar um panel no form #615840

25/05/2021

Pessoal estou tentando centralizar um panel no meu form ja tentei de um monte de jeito mas nunca d� certo ,algu�m sabe como posso fazer isso?

C�digos tentados:

1 ------------Panel1.Left := (Self.Width - Panel1.Width) div 2;
------------Panel1.Top := (Self.Height - Panel1.Height) div 2;

2 ------------APanel.Left := (AForm.ClientWidth div 2) - (APanel.Width div 2);
------------ APanel.Top := (AForm.ClientHeight div 2) - (APanel.Height div 2);

3------------panel1.top := (self.Height div 2) - (panel1.height div 2);
------------panel1.left := (self.Width div 2) - (panel1.width div 2);

Wanderson Cardoso

Curtir t�pico

+ 0

Responder

Post mais votado

25/05/2021

Teste essa procedure:

Procedure CentralizarPanel(AForm: TForm; APanel: TPanel);
begin
  APanel.Left := (AForm.ClientWidth div 2) - (APanel.Width div 2);
  APanel.Top := (AForm.ClientHeight div 2) - (APanel.Height div 2);

  APanel.Update;
  AForm.Update;
end;

Exemplo de uso, no evento OnResize do form:

CentralizarPanel(Self, Panel1);

Natanael Ferreira

Responder

Gostei + 2

Mais Posts

25/05/2021

Wanderson Cardoso

Teste essa procedure:

Procedure CentralizarPanel(AForm: TForm; APanel: TPanel);
begin
  APanel.Left := (AForm.ClientWidth div 2) - (APanel.Width div 2);
  APanel.Top := (AForm.ClientHeight div 2) - (APanel.Height div 2);

  APanel.Update;
  AForm.Update;
end;

Exemplo de uso, no evento OnResize do form:

CentralizarPanel(Self, Panel1);

Debugando ele centralizou e depois quando chega na sengunda linha dessa procedure ele da 'access violation'
Mas valeu pela dica!
Todo conhecimento e bom!

Responder

Gostei + 0

25/05/2021

Wanderson Cardoso

ops! erro meu!
Tava chamando de um form que n�o foi estanciado!
Agora funcionou valeu

Responder

Gostei + 0