Bem vindo ao LifeGames Demo
Cadastre-se agora para ter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações de status post, gerir o seu perfil e muito mais. Esta mensagem será removida assim que tiver logado.
Entrar Cadastre-se


Você não está conectado. Conecte-se ou registre-se

Dark Games » Informática » Programação » Delphi / VB » Tutoriais / Dúvidas » Desabilitar o botão fechar

Desabilitar o botão fechar

Iniciado por: ,

Ver o tópico anterior Ver o tópico seguinte Ir para baixo  Mensagem [Página 1 de 1]

1Desabilitar o botão fechar Empty Desabilitar o botão fechar Qui Fev 28, 2013 4:23 pm

Moedas Moedas : 278
Mensagens Mensagens : 1177
Idade Idade : 26
Humor Humor : Forever Alone T.T
Reputação Reputação : 28
Quebra de regras:
Desabilitar o botão fechar Left_bar_bleue0 / 1000 / 100Desabilitar o botão fechar Right_bar_bleue

RodrigoNunes

RodrigoNunes

Admin

Admin

O código abaixo remove o botão de fechar de sua aplicação. Adicione em seu Form um TButton, dê dois cliques sobre ele e adicione o código abaixo

Código:
procedure TForm1.Button1Click(Sender: TObject);
var hwndHandle : THANDLE;
    hMenuHandle : HMENU;
begin
  hwndHandle := FindWindow(nil, 'Sem título - Bloco de Notas');
  if (hwndHandle <> 0) then
    begin
      hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
      if (hMenuHandle <> 0) then
          DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
    end;
end;

https://www.facebook.com/DarkGamesBrasil Youtube LinkedIn esqueci

Ver o tópico anterior Ver o tópico seguinte Ir para o topo  Mensagem [Página 1 de 1]

Dark Games » Informática » Programação » Delphi / VB » Tutoriais / Dúvidas » Desabilitar o botão fechar

Tópicos semelhantes

-

»  Desabilitar o Ctrl+Alt+Del

Permissões neste sub-fórum
Não podes responder a tópicos