Q&A

  • 마우스 클릭 이벤트 .. 한 번 봐 줘 여 (-.-)Zzzz
으흐흐..



마우스 오른쪽 클릭 하면 "오른쪽 마우스" 메세지 박스 띄우고..



마우스 왼쪽 클릭 하면 "왼쪽 마우스" 메세지 박스 띄우는



예제 한 번만 짜 주세여..



넘 어렵나여?? (-,.-);

1  COMMENTS
  • Profile
    보거스 2001.06.01 09:14
    강원도감자 wrote:

    > 으흐흐..

    >

    > 마우스 오른쪽 클릭 하면 "오른쪽 마우스" 메세지 박스 띄우고..

    >

    > 마우스 왼쪽 클릭 하면 "왼쪽 마우스" 메세지 박스 띄우는

    >

    > 예제 한 번만 짜 주세여..

    >

    > 넘 어렵나여?? (-,.-);



    컴포넌트의 Mouse Up 이나 Mouse Down 이벤트에서 button parameter를 받으면

    될것 같군여..



    procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;

    Shift: TShiftState; X, Y: Integer);

    begin

    if Button = mbLeft then

    showmessage('왼쪽 마우스 버튼이 눌렸습니다.')

    else if button = mbRight then

    showmessage('오른쪽 마우스 버튼이 눌렸습니다.');



    end;



    즐거운 코딩되세여...