안녕하세요.
컨트롤 b에서 마우스 휠을 움직이면 같은 동작을 다른 컨트롤 a에서 한것처럼 하게 하려면 어떻게 해야 하나요?
procedure TForm1.ControlbMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
SendMessage(Controla.Handle, WM_MOUSEWHEEL, ????, ????);
end;
이렇게 해야 할 것 같은데요, ????에 뭐라고 써 줘야 할지를 모르겠습니다.
고수님들 답변 부탁드립니다~
SendMessage(Form2.handle, WM_MOUSEWHEEL, WheelDelta * 256 * 256, MousePos.X + MousePos.Y * 256 * 256);