Cria��o de Componentes

Question

Ol� !!!Preciso de ajuda no seguinte item !!!quero criar um componente ( TEDIT ) e preciso fazer com que ele ligue o NumLock quando eu entrar no Edit !! pergunta :Como fa�o para usar os Eventos (OnEnte...

Beppe · Answer

Dentro de um componente tu n~�ao usa os eventos, para isso tem as mensagens:

Declare um m�todo assim no private

procedure CMEnter(var Message: TCMGotFocus); message CM_ENTER;

Para o Exit, use CMExit e CM_EXIT;
Na implementa��o, coloque:

begin
  inherited;
  // seu c�digo aqui...
end;

Ataliba

Zector · Answer

Faleu pela Dica !!! Thanks !!!...

Marcelo Saviski · Answer

j� que foi tocado no assunto, qual a diferen�a de CM_ENTER para CM_GOTFOCUS?...

Beppe · Answer

CM_ENTER e CM_GOTFOCUS s�o mensagens diferentes, mas CM_GOTFOCUS parece nem ser usado. Eu copiei a declara��o como estava na unit StdCtrls, e n�o reparei na no tipo TWMGotFocus. Mais apropriado seria usar TWMEnter e TWMExit. N�o � totalmente errado usar TWMGotFocus(o Delphi faz assim), j� que estes 3 tipos citados s�o apenas ali�ses para TWMNoParams.

Ataliba

E_gama · Answer

Para que vc n�o precise utilizar �mensagens�, vc pode fazer o seguinte:

- a classe base de alguns componentes de entrada de dados da VCL tem alguns procedimentos �abstratos� que podem ser utilizados..
Coisas do tipo: �doEnter� para o evento �OnEnter�, �doExit� para o evento �OnExit�, etc...

segue um exemplo:


type
  TMeuEdit = class(TEdit)
  private
  protected
    procedure DoEnter; override;
    procedure DoExit; override;
    .
    .
    .

procedure TMeuEdit.DoEnter;
begin
  //  Escreva aqui seu c�digo
  inherited;
end;

procedure TXDBEdit.DoExit;
begin
  // Escreva aqui seu c�digo
  inherited;
end;

.
.
.

Antes de executar o evento �OnEnter� por exemplo, o Delphi chama o procedimento �DoEnter� ...

F�rum Cria��o de Componentes #191427