Como desativar o botão fechar do form

Delphi

08/01/2014

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

Curtidas 0

Respostas

Maicon Wagner

Maicon Wagner

08/01/2014

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;
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

08/01/2014

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.
GOSTEI 0
Thiago

Thiago

08/01/2014

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;
GOSTEI 0
Thiago

Thiago

08/01/2014

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.
GOSTEI 0
POSTAR