Como deixar sempre centralizado o meu formulario ??????
14/04/2003
0
Gostaria que quando o usuario mudar o local da tela volte para o centro ou não deixar o usuario alterar o lugar da tela, e quéro que jah abre a tela centralizada !!!!!!!!!! Obrigado quem puder me ajudar !!!!
![Rato Rato](https://www.devmedia.com.br/imagens/fotoscolunistas/avatar/avatar-1.png)
Rato
Curtir tópico
+ 0
Responder
Posts
14/04/2003
Dedi
tente isto
// Centralizar o formulário no centro da área de trabalho.(Desktop)
var
r : TRect;
osv : TOSVersionInfo;
begin
osv.EdwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
if osv.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
Left := ((r.right - r.left) - Width) div 2;
Top := ((r.bottom - r.top) - Height) div 2;
end
else
begin
Left := (GetSystemMetrics(SM_CXSCREEN) - Width) div 2;
Top := (GetSystemMetrics(SM_CYSCREEN) - Height) div 2;
end;
end;
// Centralizar o formulário no centro da área de trabalho.(Desktop)
var
r : TRect;
osv : TOSVersionInfo;
begin
osv.EdwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
if osv.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
Left := ((r.right - r.left) - Width) div 2;
Top := ((r.bottom - r.top) - Height) div 2;
end
else
begin
Left := (GetSystemMetrics(SM_CXSCREEN) - Width) div 2;
Top := (GetSystemMetrics(SM_CYSCREEN) - Height) div 2;
end;
end;
Responder
14/04/2003
Stci
Use a propriedade Position como poScreenCenter, desta maneira o formulário será sempre centralizado ao ser chamado.
Responder
Clique aqui para fazer login e interagir na Comunidade :)