Guest XinXanXun Postado Abril 29, 2004 Denunciar Share Postado Abril 29, 2004 Olá pessoal!Será que alguém saberia como deixar um form imóvel na tela em Delphi?O usuário não pode mover o form.Obrigado !!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Corposemalma Postado Abril 29, 2004 Denunciar Share Postado Abril 29, 2004 EU vi isso em um lugar... Se não me engano era em http://www.delphi.eti.br/Mas eles estao com problema e ta fora do ar.... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 DELPHI-Man32 Postado Abril 30, 2004 Denunciar Share Postado Abril 30, 2004 ESTE PRIMEIRO, MOVE O FORM, MAS NÃO DEIZA SAIR DA ÁREA DA TELA!- Na seção Private declare a procedure abaixo:private procedure WMMove(var Msg: TWMMove); message WM_MOVE;- Abaixo da palavra implementation escreva a procedure abaixo:procedure TForm1.WMMove(var Msg: TWMMove); begin if Left < 0 then Left := 0; if Top < 0 then Top := 0; if Screen.Width - (Left + Width) < 0 then Left := Screen.Width - Width; if Screen.Height - (Top + Height) < 0 then Top := Screen.Height - Height;end;Para testar:- Execute o programa e tente arrastar o form para fora das margens da tela e veja o que acontece.-----------------------------------------ESTE CENTRALIZA O FORM NO 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; VEJA SE SERVEM PRA VC!abraços, VAGNER. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest XinXanXun
Olá pessoal!
Será que alguém saberia como deixar um form imóvel na tela em Delphi?
O usuário não pode mover o form.
Obrigado !!!
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.