FocusIn and FocusOut ???

Please, I have a CustomMemo component and 
I'd like know when my control receives
the FocusIn and FocusOut Event

So, I had in Delphi the procedures:

 procedure CMEnter(var Message: TCMEnter); message CM_ENTER;
 procedure CMExit(var Message: TCMExit); message CM_EXIT;

so in Kylix its so different

I found this lines: Overriding the EventFilter method example

function TCustomControl.EventFilter(Sender: QObjectH; Event: QEventH):
Boolean;
begin
  Result := inherited EventFilter(Sender, Event);
  case QEvent_type(Event) of
    QEventType_Resize,
    QEventType_FocusIn,
    QEventType_FocusOut:
      UpdateMask;
  end;end;

but when I compile it an error ocurr like:

Unsatisfied forward or external declaration: 'Tform1.EventFilter'

How to use it ?

regards



-- 
Atenciosamente,

Luiz Gustavo Sarubi Macchi
Gerente de Informatica
EMAR Plásticos
www.emar.com.br
[email protected]
[email protected]