[ Tutorial - Delphi ]Desabilitando o Botão Fechar do Forumlário

[+ DarkLord.! 0]

Descrição:

 

O Tutorial a Seguir, Demonstra através de códigos, como desabilitar o botão fechar do Formulário, sem dificuldades e com simplicidade

 

Informações:

 

Nível: Iniciante.

Tempo Gasto: 1 Minuto.

Requerimentos: Delphi 7

 

Mãos a Obra:

 

1° Vá no Menu Iniciar, ou no Seu Desktop e Inicie o Delphi

2° Automaticamente ele irá gerar um formulário novo, pronto para ser modificador

3° Bom, vá na aba Events e clique no espaço do Evento OnCreat

4° Aqui Chega a Parte do Code, enfim dê dois clicks no Espaço e você terá o Espaço de Adicionar o Código

5° Apague o '' begin '' '' end; ''

6° Adicione o Código:

 

var

hwndHandle : THANDLE;

hMenuHandle : HMenu;

begin

hwndHandle := Self.Handle;

if (hwndHandle <> 0) then

begin

hMenuHandle := GetSystemMenu(hwndHandle, FALSE);

if (hMenuHandle <> 0) then

DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

end;

end;

 

7° Aperte F9 e veja o Resultado

 

Créditos:

DelphiDicas

[Owner 7]

Legal este modo, interessante, mas tem um jeito também que é pelo Object Inspector, que você vai no BorderIcons e coloca false no biSystemMenu.

Oculta tudo, minimizar, maximizar, fechar e o icone