다음과 같이 구현하시면 됩니다... 버튼 예제입니다.. 새로 생성된 버튼이

마우스의 위치에 따라서 캡션이 달라지는 것을 보실것입니다....



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

end;



TMyButton = class(TButton)

public

procedure CMMouseEnter(var Msg: TWMMouse); message CM_MOUSEENTER;

procedure CMMouseLeave(var Msg: TWMMouse); message CM_MOUSELEAVE;

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



{ TMyButton }



procedure TMyButton.CMMouseEnter(var Msg: TWMMouse);

begin

Self.Caption := 'Enter';

end;



procedure TMyButton.CMMouseLeave(var Msg: TWMMouse);

begin

Self.Caption := 'Leave';

end;



procedure TForm1.Button1Click(Sender: TObject);

var

MB: TMyButton;

begin

MB := TMyButton.Create(Self);

Mb.caption := 'Leave';

Self.InsertControl(MB);

end;



end.



정연 wrote:

> 게시판 뒤지니까

>

> CM_MOUSEENTER, CM_MOUSELEAVE 를 써야 된다고 나오네요

>

> 이걸로 어떻게 마우스가 움직이는걸 감지하죠?

>

> 제가 이 함수들을 잘 모르거덩요

>

> 아시면 쉽게 설명좀 해주세요

>

> 부탁합니당

>

> ^^;;;;