Ir para conteúdo
Fórum Script Brasil
  • 0

Outra Difícil


Guest XinXanXun

Pergunta

2 respostass a esta questão

Posts Recomendados

  • 0

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.

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...