Desabilitando um tratador de eventos após sua 1ª execução

 

Alguma vez você desejou impedir que um evento fosse executado após ele ter sido executado uma vez? Simplesmente atribua nil ao método de tratamento do evento no corpo do método. Por exemplo, vamos dizer que você deseje desabilitar o OnClick de um botão após o usuário tê-lo pressionado uma vez. Aqui está o código que faz isso:

 

procedure Button1OnClick;

begin

  //código que é executado uma única vez

  Button1.OnClick := nil;

end;