[DELPHI] HABILITAR OU DESABILITAR O BOTÃO FECHAR DO FORMULÁRIO

Podemos desativar via programação o botão fechar do Form com o procedimento abaixo.

//Declare Math e Windows na seção Uses

procedure botaoFecharForm(Form : TForm; Enable: Boolean);

var

x: UINT;

botaoFechar: THandle;

begin

botaoFechar := GetSystemMenu(Form.Handle, False);

x := IfThen(Enable, MF_ENABLED, MF_DISABLED);

EnableMenuItem(botaoFechar, SC_CLOSE, MF_BYCOMMAND or x);

end;

//Para habilitar

procedure TForm1.Button1Click(Sender: TObject);

begin

botaoFecharForm(Self, True);

end;

//Para desabilitar.

procedure TForm1.Button2Click(Sender: TObject);

begin

botaoFecharForm(Self, False);

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】