궁금이 께서 말씀하시기를...

> 안녕하세요.

> 폼위에 여러 컴포넌트들이 있을 때, 현재 커서가 어느 컴포넌트에 위치해 있는지

> 알고 싶은데요.

> 알 수 있을까요?

> 답변을 부탁드리며.... ^.^;

>

> 감사합니다.

>



저같은 경우는 무식한 방법으로 각 콤퍼넌트에 MouseMove 이벤트를 사용하는데

커서가 각 콤퍼넌트에 있을 때 간단한 동작을 하기 위한때에 사용합니다.

유시니 께서 말씀하시기를...

> 궁금이 께서 말씀하시기를...

> > 안녕하세요.

> > 폼위에 여러 컴포넌트들이 있을 때, 현재 커서가 어느 컴포넌트에 위치해 있는지

> > 알고 싶은데요.

> > 알 수 있을까요?

> > 답변을 부탁드리며.... ^.^;

> >

> > 감사합니다.

> >

>

> 저같은 경우는 무식한 방법으로 각 콤퍼넌트에 MouseMove 이벤트를 사용하는데

> 커서가 각 콤퍼넌트에 있을 때 간단한 동작을 하기 위한때에 사용합니다.

>

아래를 참조하세요

--------------------------------------

procedure WndProc(var Message : TMessage); override;



procedure TForm1.WndProc(var Message : TMessage);

begin

if Message.LParam = Longint(Label1) then

begin

if (Message.Msg = CM_MOUSELEAVE) then

Label1.Color := clSilver;

if (Message.Msg = CM_MOUSEENTER) then

Label1.Color := clRed;

end;

inherited WndProc(Message);

end;

그래도 들어오신 분을 위해....



감사합니다. ^.^

궁금이 께서 말씀하시기를...

> 안녕하세요.

> 폼위에 여러 컴포넌트들이 있을 때, 현재 커서가 어느 컴포넌트에 위치해 있는지

> 알고 싶은데요.

> 알 수 있을까요?

> 답변을 부탁드리며.... ^.^;

>

> 감사합니다.

>



도움말에서 TScreen.ActiveControl 을 찾아보세요