Buscar por:

Desabilitar botão fechar do form

Código

O exemplo abaixo irá desabilitar o botão fechar do Bloco de Notas do Windows. Antes de testar este exemplo

chame o Bloco de Notas do Windows. Abra um projeto em Delphi e inclua um componente Button. Inclua o

código abaixo no evento OnClick do componente Button.

// Evento OnClick do componente Table

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;