Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

brunoguitarman

[Resolvido] Como mostrar form centralizado?

Recommended Posts

Galera, tem alguma coisa que modifico nas opções, ou via código, para fazer o meu form aparecer sempre centralizado na tela, independentemente da resolução utilizada no monitor?

 

USA ISSO AQUI Ó USO NOS MEUS SISTEMAS

procedure TFCadastro.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
var
  Rect: TRect;
  OurWidth: Integer;
  OurHeight: Integer;
begin
  if Showing then begin

	// Obtem o retângulo da área cliente MDI
	Windows.GetWindowRect(Application.MainForm.ClientHandle, Rect);

	// Calcular largura e altura da área cliente
	OurWidth  := Rect.Right - Rect.Left;
	OurHeight := Rect.Bottom - Rect.Top;

	// Calcula a nova posição
	ALeft := (OurWidth - Width) div 2;
	ATop  := (OurHeight - Height) div 2;
  end;
  inherited SetBounds(ALeft, ATop, AWidth, AHeight);

end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.