Ya entiendo.
Prueba modificar el truco así:
Código Delphi
[-]
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
inherited;
if (Msg.Result = htClient) and (GetAsyncKeyState(VK_LBUTTON) <> 0) then
Msg.Result := htCaption;
end;
De esta forma sólo permites el movimiento si el click es con el botón izquierdo y dejas el derecho libre.
// Saludos