Q&A

  • 마우스 이벤트에 관하여...???
버튼위에 마우스를 올리면 레이블 박스에 글이 쓰이고 마우스가 버튼위를 벗어나면 레이블에 글씨가 변하게 할려고 하는데요.

버튼위에 마우스를 올리면 글이 변하는것은 되는데...

버튼을 벗어나면 글이 바뀌게 하는게 안되네요.





procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);



begin

label1.Caption := '첫번채 마우스 위에 있습니다.';

end;



위에것은 마우스를 버튼위에 올린것입니다.

버튼을 벗어날때는 어떤 이벤트를 사용해야 될지 모르겠습니다.

고수님들의 답변을 기다리겠습니다.

수고하세요.

1  COMMENTS
  • Profile
    이지인 2001.11.25 18:52
    이런 방법은 어떠세요??

    버튼이 어디에 얹혀있나요?

    판넬위에? 아니면 그냥 폼위에??

    아뭏튼 그것들을 이용하면 될듯 한데요...



    procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

    Y: Integer);

    begin

    label1.Caption := '버튼을 벗어났어요.';

    end;



    procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,

    Y: Integer);

    begin

    label1.Caption := '버튼을 벗어났어요.';

    end;





    정규성 wrote:

    > 버튼위에 마우스를 올리면 레이블 박스에 글이 쓰이고 마우스가 버튼위를 벗어나면 레이블에 글씨가 변하게 할려고 하는데요.

    > 버튼위에 마우스를 올리면 글이 변하는것은 되는데...

    > 버튼을 벗어나면 글이 바뀌게 하는게 안되네요.

    >

    >

    > procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

    >

    > begin

    > label1.Caption := '첫번채 마우스 위에 있습니다.';

    > end;

    >

    > 위에것은 마우스를 버튼위에 올린것입니다.

    > 버튼을 벗어날때는 어떤 이벤트를 사용해야 될지 모르겠습니다.

    > 고수님들의 답변을 기다리겠습니다.

    > 수고하세요.