안녕하세요. 천리안 프로그래머 포럼 델파이 담당자 댁스터(강범석)입니다.

  CM_MOUSEENTER, CM_MOUSELEAVE 메시지를 이용하시면 됩니다.

  간단히 예를 들면,

  새로 만드시는 버튼의 클래스 선언부에

  procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

  그리고 구현부에

  procedure TMyButton.CMMouseEnter(var Message: TMessage);
  begin
      TForm(Parent).Caption := 'Enter';
  end;

  procedure TMyButton.CMMouseLeave(var Message: TMessage);
  begin
      TForm(Parent).Caption := 'Leave';
  end;

  간단히 이런식으로 하면 되겠네요.

  참고가 되셨길....

                                                                  From Thexder