GARANTIR DESCONTO

Fórum Como desativar o botão fechar do form #466293

08/01/2014

0

Delphi

Tem como desativar o botão fechar do form? No caso, não quero tirar, quero deixar ele visível mais desabilitado. É possível?

Abs.,
Thiago

Thiago

Responder

Posts

08/01/2014

Maicon Wagner

Amigo Através das propriedades não tem como não. Porem você pode utilizar este pequeno código dentro do OnCreate do form.

procedure TForm1.FormCreate(Sender: TObject);
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;
Responder

Gostei + 0

09/01/2014

Leonardo Xavier

Selecione o form desejado e no object inspector veja a opção BrderIcons ali você ativa e desativa os botoes do form que você deseja.
Responder

Gostei + 0

09/01/2014

Thiago

Maicon blz!

Entendi e funcionou!

Vlw

Amigo Através das propriedades não tem como não. Porem você pode utilizar este pequeno código dentro do OnCreate do form.

procedure TForm1.FormCreate(Sender: TObject);
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;
Responder

Gostei + 0

09/01/2014

Thiago

Blz Leonardo,

Vlw pela dica também!

Abs.,

Selecione o form desejado e no object inspector veja a opção BrderIcons ali você ativa e desativa os botoes do form que você deseja.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar