Botão fechar na barra

Para capturar o evento do click no botão fechar ( X ) na barra, basta fazer o seguinte procedimento:

Cria a procedure no form que deseja capturar o evento, declarado dentro da classe

procedure WMSysCommand(var MSG: TWMSysCommand); message WM_SYSCOMMAND;

e em seguida declarar a procedure da seguinte forma:

procedure TForm1.WMSYSCommand(var MSG: TWMSysCommand);
begin
if MSG.CmdType = SC_CLOSE then
begin
//aqui você faz o tratamento de fechar o form
end;
inherited;
end;

Espero ter ajudado.

Até a próxima.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: