Desabilitar menu de contexto padrão de componentes de edição

Dica para desabilitar o menu de contexto de componentes de edição como TEdit ao clicarmos com botão direito na área de edição.

Esta dica é muito útil, pois já tive ocasiões que queria desabilitar aquele menu de contexto padrão que aparece em componentes de edição como TEdit, TDBEdit, TMemo, TMaskEdit, etc, quando clicamos com botão direito.

Quando pesquisei encontrei uma função que utilizava a RTTI, ou seja, em tempo de execução é manipulada um atributo de um objeto.

Acabei descobrindo uma forma muito mais fácil e simples para se desabilitar o menu de contexto.

Abaixo segue o código: procedure TForm1.Memo1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin Handled := True; end;
O evento ContextPopup é chamado quando clicamos com o botão direito do mouse na área de edição do controle.

Artigos relacionados