안녕하세요.

TBitBtn(비트맵버튼)을 두개 놓고 하나를 드래그하여 다른 버튼에 옮기면 드래그한
버튼의 정보와 받는 버튼의 정보(캡션이나 기타 사항)를 교환하려구 했는데....

드래그를 시작하니 버튼의 OnClick이벤트가 따로 있는데도 OnClick이벤트에 설정된
사항이 실행이 되어 버립니다.
참고로...

procedure TMainForm.BtnMouseDown(Sender: .........);
begin
   if Button = mbLeft then
      (Sender as TBitBtn).BeginDrag(False);
end;

라고 했고... 버튼의 OnClick이벤트는 따로 있는데 버튼을 클릭하지 않고 마우스왼쪽
버튼을 누르기만(MouseDown) 했는데도 OnClick이벤트가 실행되니.....
마우스 제어는 첨이라 힘드네요.

도움 부탁드립니다.